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SIUCON COMPOSERS INC 
FAST Forth Native-Language Embedded Computers 




Harris Rl^ 2000^ K^bit Forth Chip 

•8 or 10 MHz operadon «nd 15 MIPS speeA. 

• 1-cyde 16 X 16 - 32.tet muldpljr. 

• 1-cycIc 14-prioriti26d interrupts, 
•two 2S6-word stBdi mcm&nes. 
•a-cbannei I/O bus & 3 tfnter/coifttters. 

SC/FOX PCS (Parallel Coprocessor System) 
•RTX 2000 indusLrial PGA CPU; 8 & 10 MJfe. 
•System speed options; 8 or 10 MHz. 
•32 KB to 1 MB 0-wait-state static RAM- 
•FuB-len^ PC/XT/AT plug-in bo»d. 

SC/FOX VME SBC (Single Board Computer) 
•RTX 2000 industrial PGA CPU; 8, 10, 12 MHz. 
•Bus Master, System ControUer, or Bus Sbrv& 
•Up to 640 KB 0-wait-State static RAM. 
•233imn x IfiOttim 6U size (6-layer) board 

SC/FOX CUB (Single Board Ownputet) 
•HTX 2000 PLCC or 2001A PLCC chip. 
•%stein 9>eed Offtioiis: S, 10, or 12 MHz. 
•32 KB ids (Mrait-state SRAM. 
•XO^nm fay IQOmm (4-b9tsr) bomrd. 



SC32<" 32-bit Forth Microprocessor 

•8 or 10 MHz operaEion and 15 MIPS q>eed. 
- 1- clock cycle instruaion execution, 
•Contiguous 16 GB data and 2 GB code space. 
•Stack depths limited orHy by available memoiy. 
•Bus request/bus grant lines with on-chip tdstate. 

SC/FOX SBC32 (Single Board Coniputer33) 
•32-bit SC32 industrial grade Fonh PGACPSf. 
•System speed options: 8 or 10 MHz. 
•32 KB to 512 KB O^ivait^cate static RAM. 
•lOOnim by itiOdua Euicoqud size {A-h^&t} board. 

SC/FOX PCS32 (Parallel Coprocessor System32) 
•32-bit SC32 industrial grade Forth PGA CPU. 
•System ^peed options: S or 10 MHz. 
•64 KB to 1 MB 0-wait-state static RAM. 
•Full-length PC/XT/AT plug-in (6-layer) board, 

SC/FOX SBC (Single Board Computer) 
•RTX 2000 industrial grade PGA CPU. 
•%stem speed options: 8, 10, or 12 MHz. 
•32 KB to 512 KB 0-wait-state static RAM. 
•lOQmm ty 16i%nm Euroeard size (44apr) board. 



For additional product iofom^tiaii jtnd OEM pricing please contact us at: 
SILICON COIk^SERS INC 208 i^lttfornia Awnu^ Blilo Alto, C4 »t^ (415) 322.87(3 
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Symbolic Processing 



Alexander Sakharov 



Forth has future potential, but few systems support advanced applications like graphical user 
interfaces, databases, communications, and word processing. Symbolic processing is such a major 
application, and the means for it are a precursor for work in artificial intelligence. The author 
proposes, and has implemented, a package that promotes symbolic processing. 

Forth for the 90*8 Tom Zimmer 

The C compilers available for the embedded market are not very good. In the meantime, we do 
development in assembly language — ^which isn't much fun, but we need the performance. Oh, 
by the way, embedded applications is a multi-billion dollar market, and growing by more billions 
every year... 

eForth^A Portable Forth Model C. H. Ting 

eForth is designed to be portable to many newer, more powerful processors. Forth in its present 
shape and form may not be adequate in the future, in terms of support for development of large 
and demanding projects. The Forth Interest Group captured the imagination of the first generation 
of personal computer enthusiasts with the fig-Forth model for six CPUs. Let's see if we can build 
a Forth which can be ported easily to the new and future microprocessors. 



Menu Words 



John Edgecombe 



Building on Frans Van Duinen's earlier article, the author presents menu-building words. In these 
days of sophisticated interfaces, it is useful to have such a menu utility handy. It may come as a 
surprise that one definition uses [COMPILE] to compile a non-immediate word. 

Add and Delete Screens in PDE Walter J. Rottenkolber 

Disenchanted by F83's usual, arcane line editor? A vast improvement was Frans Van Duinen's PDE, 
with integrated screen-handling and debugging. But adding or deleting screens is awkward: source 
and shadow screens become de-synchronized, duplicate screens arise, and end screens can shift 
off into oblivion. Here is a set of words to correct these problems. 

Sixty-formatted Source Code Hank Wilkinson 

Glen Haydon presented an approach to good in-line documentation, but left as an exercise was 
moving the ASCII text from disk to memory. A simple loop allows using Forth error screens along 
with Glen's word set. This technique is presented in a specific context (Commodore 64 with GEOS), 
and the author describes how he adapted his approach to the environment. 
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/'d like to begin by thank- 
ing you for continuing to 
support this magazine 
and the Forth Interest Group. 
With notable exceptions, 
users groups and special- 
interest groups have siiffered 
dwindling numbers in recent 
years. Many have disap- 
peared entirely or are, as the 
saying goes, mere shadows 
of their former selves. 
Whether this is due to the 
economy, to competition 
from on-line alternatives, to 
a societal shift away from 
grass-roots organizations, or 
to the collective bum-out of 
the volunteers who founded 
and operated such institu- 
tions, is a matter for specula- 
tion and study. 

Fortunately, FIG is enjoy- 
ing a warm response to this 
year's reminder notices. Many 
of you generously have con- 
tributed more than the basic 
membership dues and have 
expressed encouragement 
and appreciation of FTG's 
services. Your kind words 
are welcome! 

It is the intellectual and 



important and useful service. 
As FD enters its thirteenth 
year of publication, we hope 
you will join us in the arena — 
write an article or letter to the 
editor, review a Forth book, 
help invigorate the local FIG 
chapter, or share some Forth 
code with your fellow read- 
ers. 

New Contest 
$ Announcement $ 

We enjoyed the stimula- 
tion generated by our con- 
test for articles about Forth 
hardware (see FDXl/G), and 
it is high time we did it again. 
But we needed a new con- 
test theme — ^Forth hardware, 
however you interpret the 
phrase, is an important sub- 
jea about which we are al- 
ways looking for more ar- 
ticles. So we asked key Forth 
vendors for other sugges- 
tions and, while a number of 
tempting topics surfaced, 
only one garnered a majority 
opinion. 

So it is with pleasure and 
a sense of anticipation that I 
announce this call for con- 



authorCs), and any accompa- 
nying Forth code. It can also 
be uploaded to my 
MARLIN.O e-mail address on 
GEnie, though hard copy 
should also be mailed for 
safety. For contest entries to 
be considered for prizes, they 
must be received by S^tem- 
ber 16, 1991. 

Prizes, you ask? In addi- 
tion to publication in Forth 
Dimensions, public recogni- 
tion, and the admiration of 
fellow FIG members, the first- 
place winner will receive 
$500, second place will earn 
$250, and third prize will be 
$100. Kind of like a small, 
unexpected inheritance. . . 

Feel free to ask the FIG 
office for a copy of our Writ- 
ers Guidelines. Following the 
tradition of our last contest, 
the theme of this one is pur- 
posefully left a bit general. 
That is done in order to en- 
courage diversity and origi- 
nality, and to allow room for 
your particular approach and 
priorities. 

I look forward to receiv- 
ing your submission! 
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...the intellectual and emotional 
investment of its members 
has kept FIG strong. 



emotional investment of its 
members that has kept the 
Forth Interest Group alive in 
tough times. Members often 
support the organization 
even if they don't always 
agree with it. Forth itself has 
always bred controversy and, 
in some circles, the same is 
true of FIG; maybe that 
shouldn't be surprising. But 
FIG does succeed at provid- 
ing an arena for this fratemal 
contention, and most agree 
that getting good Forth ar- 
ticles and arguments and 
code into print is a singularly 
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test entries on the subject of 
object-oriented program- 
ming. Judges will be in- 
structed to give preference 
to articles/papers which in- 
clude code that is educa- 
tional, illustrative, and/or ac- 
tually useful, though code is 
not strictly required. Materi- 
als should be submitted in 
the form of hard copy ac- 
companied by a diskette 
containing the article, an 
ASCII (i.e., text without em- 
bedded formatting) version 
of the article, biographical 
information about the 



Calls for Papers — 
China and Europe 

If you don't want to write 
about object-oriented pro- 
gramming (even if you do), 
there are at least two other 
places, at opposite sides of 
the planet, looking for good 
Forth technical papers. Jiao 
Tong University in Shanghai 
wiU be the site of a China 
FORML Conference on the 
subject of faaory automa- 
tion and industrial applica- 
tions of Forth. For details, 
see the ad elsewhere in this 
issue. The organizers plan a 
very interesting tour "...off 
the oft-trodden tourist paths. " 
I also have a letter from Mr. 
Zeng Jing, announcing a 
Forth symposium in Beijing 

(Continued on page 20.) 



Letters to the Editor— and to your felbw readers — are always welcome. 
Respond to articles, describe your latest projects, ask for input, advise 
the Forth community, or simply share a recent insight. Code is also 
welcome, but is optional. Letters may be edited for clarity and length. 
We want to hear from you! 



Go Ahead— Trust the 
CompUeil 

As I sit here writing this, I 
am wondering if anybody 
cares any more about some- 
one else's code? Forth code, 
that is! Since my brief im- 
promptu talk Saturday night, 
I have had time to consider 
where I am going and the 
direction Forth is taking. Yes, 
this is a late paper which, 
hopefully, will make it into 
the FORML Proceedings. As 
a relative newcomer to Forth, 
I have been reticent to expose 
my ignorance about the in- 
ner workings of the language 
(outer workings, too). 

Since I am my own client, 
my code has to satisfy my 
own needs; and as a Profes- 



after 500 bug fixes. It ap- 
pears that computer graph- 
ics is now the home crafts 
hit, replacing needlepoint as 
m'ladies' pastime. None of 
these people seem con- 
cerned about the possible 
consequences of having to 
explain that "It really wasn't 
my fault, ithappenedbecause 
the software had bugs in it." 
The world sure looks differ- 
ent when your own personal 
posterior is on the hot seat 

Occam's Razor is often 
attributed to Albert Einstein 
in the press. "Everything 
should be made as simple as 
possible, but no simpler." 

Go ahead, "Trust the 
Compiler," put your faith in 
the obscure. If the graphical 



Why am I still writing in 
Forth — even enjoying it? 



sional Land Surveyor, I have 
not found commercially 
available surveying packages 
to my liking. So if you can't 
buy it, you have to make it. 
Most packages are highly 
proteaedfromthe purchaser, 
not because they are valu- 
able, but because if you found 
out where the shortcuts were 
taken, your "garbage-in, 
gospel-out" mentality would 
be severely shaken. 

I recently attended a non- 
Forth computer event, where 
a Windows package was 
"...so much easier to use" 

Forth Dimensions 



user interface is good, then 
the compiler must be terrific! 
The GUI sells software; if the 
compiler suffers, you will get 
an upgrade offer next year 
Why are these mass-mar- 
keted consumer products 
taking over? One reason is 
that they are buzz words in 
computer stores. Megabuck 
promotion and packaging 
helps allot (pun intended). 

Given that Forth is a pro- 
grammer amplifier, it is ap- 
parent that a skilled Forth 
programmer can get excel- 



lent results; but management 
preference is for entry-level 
programmers in commodity 
languages, for the perceived 
economic and actuarial rea- 
sons. Forth is usually the 
language of last resort, for 
use when conventional 
methods prove unproduc- 
tive or simply can't be bent 
to fit the requirements. 

But what about the com- 
pany with a couple of in- 
house Forth programmers 
and some Forth-based prod- 
ucts — ^what happens when 
both programmers go skiing 
and end up in traction? 
Imagine this scenario: 
"Hello, is this the Forth 
hiring hall? Yeah, I need a 
couple of journeyman pro- 
grammers. Can you send 
them over this aftemoon? We 
have 30 tons of widgets that 
have to ship Friday, and the 
ROM code isn't ready. What! 
The only guy you've got is 
on the Ross Ice Shelf and is 
scheduled to over-winter at 
little America, but I can have 



the n\iddle of the night and 
munnble to their spouses over 
thoughts like these. 

Sure, it's preposterous: 
There isn't a hiring hall. 

But maybe there should 
be! On October 27, the U.S. 
Congress passed a bill with- 
out a hearing which exempts 
"computer systems analysts, 
computer programmers, 
software engineers" and 
other computer profession- 
als who earn $25 per hour or 
more from the overtime pay 
requirements of federal law, 
on the grounds that these 
highly paid workers do not 
need federal protection. 
These employees will now 
be able to work extra hours 
and get paid their regular 
hourly rates. 

So, with all this doom and 
gloom, why am I still writing 
in Forth? Because I want 
something I can understand, 
that I will maintain, and which 
is economical of my limited 
resources. Unlike govern- 
ment employees, I am not 
rewarded with more em- 
ployees, a bigger desk, and 
the other perks of bureau- 
cracy. I am building pro- 
ductivity tools tailored to my 
own needs and desires, and 
am even enjoying it. 

John Edgecombe 
905 S. Jurymast Drive 
Oxnard, California 93030 

Note from a Defector 

Dear Marlin, 



f thought you'd be 
interested in the mind of 
a defector. 



him if I charter a 747 to pick 
him up before the blizzard 
hits? You mean it's that or lay 
off 600 people? The stock- 
holders will not be 
pleased..." 

MBA-types wake up in 



I'm afraid the time has 
come for me to give up Forth 
(and Forth Dimensions and 
FIG). Congenial as Forth is to 
a left-handed Zen Buddhist 
Aquarian MIT-graduate phi- 

(Continued on page 21.) 
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A message from the President of the Forth Interest Group 




I need to tell you about 
the Organization, about the 
problems and issues, about 
what is happening right now 
to solve these issues, how I 
see the issues, and plans for 
the future. I can't do this all 
in one column, so I am 
going to tell you a little 
about each in every issue of 
FD. The parts are Organiza- 
tion, Issues, Actions, and 
Explanations. 

Organization 

The chart should explain 
a lot and will be changing 
over the next year. The 
empty boxes are for new 
ideas from you. 

While talking to people, 
I have discovered some 
misunderstanding about 
how FIG services are pro- 
vided. FIG is a volunteer 
organization and no mem- 
ber of the Board of Direc- 
tors, no officer, committee 
chairman, or committee 
member is paid for that ser- 
vice. Many FIG expenses 
are paid by individuals and 
are then reimbursed. We 
contract only for functions 
that we cannot accomplish 
with volunteers because 
they require equipment or 
facilities that we do not have 
or talents and time that are 
more than we can expect 
from volunteers. These are, 
specifically, the editors of 
Forth Dimensions and 
FORML, and the storefront 
and mail-order presence of 
May 1991 June 



the Association Develop- 
ment Center, who provides 
the office functions for us. 

As the president, I have 
the privilege of attempting 
to "lead" this organization. I 
want to give you a little of 
my philosophy about lead- 
ing. As a leader, 1 cannot 
lead you in the direction 
you want to go; I can only 
lead you in the direction I 
want to go. If you want to 
follow, it is my joy to have 
you with me, but by 
doing so you give up 
the privilege of having 
me listen to you com- 
plain that we are not 
going where you want 
to go. As a guide, my 
job would be to get 
ahead of you and help 
dear the path and light 
the way, making it easier 
for you to go in the 
direction you choose. 
But the only way I can 
know where your 
"ahead" is, is by your 
input to me about where 
we should be going. It 
is your choice but, as 
the president, I would 
be just as happy to have 
the privilege of "light- 
ing the way" for this 
organization. 



Issues 

Here are some of 
the issues I feel we have 
to deal with. Some I 
have felt strongly about 
and others have been 



expressed by concerned 
individuals. They are listed 
in order of timeliness to 
discuss. This will change 
over time as new ones get 
added. 

Forth Interest Group 

• Treasurer preparing a re- 
view of FIG financial situ- 
ation for publication in 
FD. 

• Silence isn't secret, we 
could fill FD twice over 



with business meeting 
minutes and financial 
statements. 

Dues increases, helping 
or hurting, necessary? 
Annual billing, why? 

' Publicity, public relations, 
FIG advertisement, men- 
tion of FIG m articles, 
word of mouth. 

' Standards, should FIG 
endorse them? 

' Volunteers, must spread 

(Continued on page 26.) 
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FoRTH-83 

Symbolic Ptocessing 



Alexander Sakharov 
Newton, Massachusetts 

I I nfortunately, Forth is 
/ / far from being a 
general -pur pose 
language in the market; the 
author would like to see 
Forth in the position of C in 
the market. Forth has the 
potential for this, but it lacks 
data types and a memory 
allocation mechanism. Few 
Forth systems have pack- 
ages for advanced applica- 
tions like graphical user in- 
terfaces, databases, com- 
munications, word process- 
ing, etc. These are some of 
the reasons for Forth's poor 
position. 

Symbolic processing is 
in the ranks of major 

Knowledge is encoded 
with simpie and dear 
iist-notation words. 

applications. For instance, 
knowledge engineering re- 
quires the ability to handle 
symbolic data. Moreover, 
the means for symbolic 
processing are a precursor 
for most work in artificial 
intelligence. We propose, 
and have implemented, a 
package of Forth words 
which promote symbolic 
processing. Primary appli- 
cations of the package are 
knowledge-based systems 
(for instance, expert sys- 
tems) and systems for sym- 



bolic or mixed computa- 
tions. Since there are no 
common Forth words sup- 
porting list data and memory 
allocation, our package has 
been implemented from 
beginning to end in Forth- 
83 Standard. 

Any symbolic data 
(logical or algebraic ex- 
pressions, graphs, frames, 
semantic networks, etc.) can 
be represented by lists. A 
list notation has been 
elaborated within Forth. 
Forth words ( : and : ) 
enclose list items. They have 
the same meaning as ( and 
) in the Lisp notation. Three 
types of atoms are in use: 
integers, strings, and slots. 
Any other types of atoms 
can be easily added. The 
content of any integer atom 
is an integer. The content of 
any string atom is a pointer 
to a string. The content of a 
slot atom is the address of a 
Forth variable. Advanced 
symbolic processing (as in 
knowledge-based systems) 
requires the means to handle 
patterns. In our package, 
slot atoms allow the devel- 
oper to construct list pat- 
terns. These patterns can 
either be matched against 
lists or utilized to generate 
other lists. 

The word % constmcts an 
integer atom, taking the top 
stack value as the content of 



the atom. The word $ is used 
in the same manner for 
strings. The word ^ con- 
structs a slot atom, taking 
the top stack value as its 
content; i.e., the top stack 
value is treated as the ad- 
dress of a Forth variable. 
Atoms constructed with %, $, 
or may be items in lists or 
may stand alone. The word 
& constmcts a list item which 
is either a list or an atom. It 
also takes the top stack value 
as its parameter. All afore- 
mentioned words can be 
used along with other words 
(in keeping with the Forth 
philosophy). In order to 
check the bracket structure 
of lists and to make the 
words more efficient, they 
are implemented as com- 
piling words. Some ex- 
amples of atoms and lists 
are given in Figure One. 

As usual, lists are repre- 
sented in memory as sets of 
connected CONS-cells. A 
CONS-cell consists of two 
components. The first is a 
pointer to a list item. The 
second is a pointer to the 
next CONS-cell. Any atom is 
represented as a CONS-cell. 
The first element is an atom 
type that, simultaneously, 
serves to distinguish atoms 
from lists. The second ele- 
ment is an atom value. Lists 
and atoms are represented 
on the Forth parameter stack 
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Figure One. Some example atoms and lists. 



-1 % 

" +_*" $ 

(: 1 % " ABC" $ :) 

VARIABLE V10%V! (:V@&2%V@&:) 
VARIABLE X VARIABLE Y 
(:X'^(:0%Y'':) :) 
(: 10 DO I 4 * % LOOP : ) 



Figure Two. Sample rules from demo knowledge bases. 




: */d ( : ( : U " -" $ V 


:) " /d" $ X : 


) LHS 


(: (: U " " /d" $ X " :) 


" _" $ ^ . Y y^ « 


/d" $ X ^ :) RHS ; 


: #5 " FLIES" $ Y/N 






" LAYS_EGGS" $ Y/N 






" BIRDS" $ A-F ; 







as pointers to their memory 
representations. Notice that 
the stack representation of 
any list or atom differs from 
(FALSE) . 

The conventional Lisp 
functions CAR, CDR, CONS, 
EQUAL, and MEMBER are 
useful for programming 
symbolic transformations 
and for encoding knowl- 
edge and inference proce- 
dures. They are imple- 
mented as words manipu- 
lating the Forth parameter 
stack. Since atoms are rep- 
resented as CONS-cells, CAR 
and CDR can be used to 
yield an atom type and 
value, respectively. CONS 
can construct an atom of its 
type and value. The fol- 
lowing Forth constants 
elaborate the types of atoms: 
INT (integer atom), STR 
(string atom), and VAR (slot 
atom). NIL is also imple- 
mented as a Forth constant. 
The words INT?, STR?, 
VAR?, and LST? are Bool- 
ean operators. INT?, STR?, 



VAR?, and LST? test 
whether the top stack value 
is an integer atom, a string 
atom, a slot atom, or a non- 
empty list, respectively. 

To enable arbitrary 
changing of CONS-cells, the 
words CAR ! and CDR ! are 
introduced. The behave 
similarly to ! . CAR ! assigns 
a new value to the first com- 
ponent of a CONS-cell. CDR ! 
does the same with respect 
to the second component. 
Again, these words apply to 
both lists and atoms. 

Two powerful words SB 
and MT allow the developer 
to process list patterns. The 
word MT compares a list or 
atom to another one. It has 
two parameters: its top stack 
parameter may contain slot 
atoms; the next should not. 
Any variable may have no 
more than one occurrence 
in the first parameter. MT 
yields a Boolean value 
showing the result of the 
comparison. If the param- 
eters match, then any lists 



Alexander Sakharov received his M.S. and Ph.D. degrees from Leningrad 
University, where he worked primarily in compiler development and automatic 
programming. He began using Forth in 1984— as the implementatton language 
for a functional-language compiler— while involved in a project to build a Forth 
processor. When he nwved to the Soviet National Academy of Sciences' office 
automation department, he developed artificial intelligence tools in Forth. He is 
now working in Software Research and Development for Motorola, once again 
involved in compiler development. 



or atoms of the second pa- 
rameter that match slots of 
the first parameter are stored 
at the corresponding vari- 
ables. The word SB has one 
parameter. It generates a list 
or atom by substituting lists 
or atoms assigned to the 
variables occurring in the 
parameter as slots. 

Our package should be 
suited for typical Forth ap- 
plications and, in particular, 
for real-time systems. Gar- 
bage collection is to be 
avoided in real-time systems; 
our implementation sup- 
ports dynamic memory al- 
location. Some primitives 
supporting this technique 
are written in Forth. The 
word F-L frees all cells of a 
given list. The word SF-L 
selectively frees some cells 
of a list; the cells which do 
not occur in another list are 
freed. These two lists are 
the parameters of SF-L. 
These words allow the de- 
veloper to delete garbage at 
any stage of symbolic pro- 
cessing, thereby avoiding 
global garbage collection. 

Knowledge is encoded 
with list notation words 
which are fairly simple and 
clear. Lisp-like words are 



used extensively to imple- 
ment internals of systems. 
The bottleneck in the devel- 
opment of expert systems 
and systems for symbolic 
computations is knowledge 
engineering. Our words 
promote knowledge repre- 
sentation. Thus, our words 
help solve the problems of 
knowledge engineering. 

Two demonstration pro- 
grams have been imple- 
mented with the use of our 
package. One of them per- 
forms symbolic differentia- 
tion of algebraic formulae 
and then simplifies them. 
The second one implements 
the animal game. Figure 
Two contains two rules, one 
from the know! dgebaseof 
each program. 

The words LHS and RHS 
are used in all rules of the 
first program. The words 
Y/N and A-F are used in all 
rules of the second pro- 
gram. The actions per- 
formed by LHS and Y/N 
include pattern matching. 
The words RHS and A-F, in 
particular, substitute atoms 
or lists for slots. All garbage 
is deleted when executing 
these words. It is easy to 
make the rules in these pro- 
grams more efficient by 
constructing lists statically, 
storing them as Forth con- 
stants and using the con- 
stants in the rules. 
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( Symbolic Processing in Forth ) 
( Alexander Sakharov ) 

( It is assumed that the following words are implemented: ) 
( TRUE FALSE -ROT RECURSE ?PAIRS ) 

( Auxiliary words ) 

: STR= ( al a2 — > f string=string? ) 
COUNT ROT COUNT ROT OVER = 
IF DO OVER I + C§ OVER I + C@ = NOT 
IF FALSE LEAVE THEN LOOP 
IF DROP TRUE ELSE DROP DROP FALSE THEN 
ELSE DROP DROP DROP FALSE THEN ; 

: ?DDFE IF DROP DROP FALSE R> DROP THEN ; 



( Constants, variables ) 

1 CONSTANT NIL 

10 CONSTANT VAR 

11 CONSTANT INT 

12 CONSTANT STR 

15 CONSTANT OC ( occupied CONS-cell ) 
31 CONSTANT FC ( free CONS-cell ) 

2 CONSTANT VL ( value length /stack cell size/ in bytes ) 
1000 CONSTANT WMS ( number of CONS -eel Is in working memory) 
HERE WMS VL 2* * ALLOT HERE SWAP 

CONSTANT WMMIN ( working memory min address) 
CONSTANT WMMAX ( working memory max address) 

VARIABLE WMP ( working memory pointer) 
VARIABLE (CNT ( parenthesis counter for lists) 

( LISP-like functions ) 
: CAR STATE 6 IF COMPILE § ELSE @ THEN ; IMMEDIATE 
: CDR VL + @ ; 

: CAR! STATE @ IF COMPILE ! ELSE ! THEN ; IMMEDIATE 
: CDR! VL + ! ; 
( Working memory utilities ) 
: GWMC ( — > ad : get working memory cell ) 
TRUE WMS 

DO WMMAX WMP @ = IF WMMIN WMP ! THEN 
WMP @ CAR FC = IF OC WMP § CAR! DROP FALSE LEAVE 

ELSE VL 2* WMP +! THEN 

LOOP 

IF . " No free working memory" ABORT THEN 
WMP e VL 2* WMP +! ; 

: FWMC ( ad — > : free working memory cell ) 
FC SWAP CAR! ; 
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( LISP-like functions, continued ) 

: CONS GWMC SWAP OVER CDR! SWAP OVER CAR! ; 

: INT? DUP NIL = IF DROP FALSE ELSE C7VR INT « THEN ; 

; STR? DUP NIL = IF DROP FALSE ELSE CAR STR » THEN ; 

: VAR? DUP NIL * IF DROP FALSE ELSE CAR VAR » THEN ; 

: LST? DUP NIL = IF DROP FALSE ELSE CAR FC SWAP U< THEN 

: NIL? NIL = ; 
( Generating words ) 

: G-C ( adl item — > ad2 : generate CONS-cell ) 
OVER CAR OC » 
IF OVER CAR! 

ELSE GWMC SWAP OVER CAR! DUP ROT CDR! THEN ; 
: G-A ( value type — > ad : generate atom ) 
GWMC SWAP OVER CAR! SWAP OVER CDR! ; 



( EQUAL ) 

: EQUAL ( al a2 — > f list=list? ) 

OVER OVER = 

IF DROP DROP TRUE EXIT THEN 
DUP INT? IF OVER INT? NOT ?DDFE 

CDR SWAP CDR = EXIT THEN 
DUP STR? IF OVER STR? NOT ?DDFE 

CDR SWAP CDR STR= EXIT THEN 
DUP VAR? IF OVER VAR? NOT ?DDFE 

CDR SWAP CDR = EXIT THEN 
OVER LST? OVER LST? AND NOT ?DDFE 

OVER CAR OVER CAR RECURSE 

IF CDR SWAP CDR RECURSE ELSE DROP DROP FALSE THEN 



Atom & List words / run-time ) 
1% ( adl value — > ad2 ) 

INT G-A G-C ; 
0% INT G-A ( value — > ad ) 
1$ ( adl value — > ad2 ) 

STR G-A G-C ; 
0$ STR G-A ( value — > ad ) 
I(: ( adl — > ad2 ad3 ) 

GWMC SWAP OVER G-C SWAP ; 
0(: GWMC DUP 7 ( — > adl ad2 ) 

(:)) NIL SWAP CDR! ; ( ad — > ) 

I" VAR G-A G-C ; ( adl value -> ad2 

O* VAR G-A ; ( value -> ad ) 
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( SB, MEMBER ) 
•• SB ( adl -> ad2 ) 

DUP NIL? IF EXIT THEN 

DUP INT? IF INT SWAP CDR CONS EXIT THEN 
DUP STR? IF STR SWAP CDR CONS EXIT THEN 
DUP VAR? IF CDR @ EXIT THEN 
DUP CAR RECURSE SWAP CDR RECURSE CONS ; 

: MEMBER ( adl ad2 -> f ) 

BEGIN DUP NIL? 

IF DROP DROP FALSE TRUE 
ELSE OVER OVER CAR EQUAL 
IF DROP DROP TRUE TRUE 
ELSE CDR FALSE THEN 
THEN 
UNTIL ; 
( MT, INSTALL ) 
: MT ( adl ad2 -> f ) 

DUP NIL? IF = EXIT THEN 
DUP INT? IF OVER INT? NOT ?DDFE 

CDR SWAP CDR = EXIT THEN 
DUP STR? IF OVER STR? NOT ?DDFE 

CDR SWAP CDR STR= EXIT THEN 
DUP VAR? IF OVER NIL? ?DDFE 

CDR ! TRUE EXIT THEN 
OVER LST? NOT ?DDFE 

OVER CAR OVER CAR RECURSE 
IF CDR SWAP CDR SWAP RECURSE 
ELSE DROP DROP FALSE THEN ; 

: INSTALL (CNT ! WMMIN WMP ! 

WMS DO FC WMMIN I VL 2* * + CAR! LOOP ; 
( List notation ) 
: % ( {adl} value -> ad2 ) 

(CNT @ IF COMPILE 1% ELSE COMPILE 0% THEN ; IMMEDIATE 
: $ ( {adl) value -> ad2 ) 

(CNT @ IF COMPILE 1$ ELSE COMPILE 0$ THEN ; IMMEDIATE 
: & ( {adl) value -> ad2/value ) 

(CNT @ IF COMPILE G-C THEN ; IMMEDIATE 
: " ( {adl) value -> ad2 ) 

(CNT § IF COMPILE I* ELSE COMPILE 0* THEN ; IMMEDIATE 
: (: ( (adl) -> ad2 ad3 ) 

(CNT @ IF COMPILE I(: ELSE COMPILE 0(: THEN 
1 (CNT +! 17 ; IMMEDIATE 
: : ) ( ad -> ) 

17 ? PAIRS 

-1 (CNT +! COMPILE (:)) ; IMMEDIATE 
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Forth for the 90's 



Tom Zimmer 
Milpitas, California 



yes, I've heard the m- 
mors: Forth is a dead 
language, even com- 
panies that are still using it 
can't seem to find pro- 
grammers to maintain their 
existing body of code. Ev- 
erybody knows how easy it 
is to get C programmers — it 
is, after all, the wave of the 
present and future. 

Of course, the C compil- 
ers available for the embed- 
ded (microcontroller) mar- 
ket are not very good, but 
they are bound to get better 
(someday). In the meantime, 
you have to do your devel- 
opment in assembly lan- 
guage, which isn't much fun, 
but we have to have the 
performance. 

Oh, did I mention that 
embedded applications is a 
multi-billion dollar market, 
and growing by more bil- 
lions every year? 

For what, do you sup- 
pose, do people want to 
use even more microcon- 
trollers? We already have 
computers in almost every 
imaginable home appliance, 
how could there be room 
for growth? 

As it turns out, the people 
who design all these appli- 
ances keep thinking up 
more and better ways to use 
that processor's power — to 
enhance functionality, im- 
prove ease of use, and 



maintain high performance 
and quality. As the uses 
evolve, more processing 
power is needed and more 
complex tasks are per- 
formed. The current micro- 
controllers in VCRs and TVs 
are mostly four bit, but the 
market is starting to use 
eight-bit processors, with 1 6- 
and 32-bit processors just 
around the corner. This is 
partially due to the need for 
more processing power, but 
also due to the inefficiency 
of the compilers (C) being 
used to create the applica- 
tions. 

Forth can provide an 
inherently interactive de- 
velopment environment 
when the development en- 
gineer needs it to test and 
evaluate hardware. Forth 
can provide a high-perfor- 
mance, low-cost way to test 
and debug embedded ap- 
plications. Development 
environments for C and as- 
sembly typically revolve 
around an in-circuit emula- 
tor (ICE), a multi-thousand- 
dollar tool you have to 
purchase again every time 
you switch to a new proces- 
sor. Clearly a costly, though 
powerful, solution to the 
problem of embedded ap- 
plication development. 
There has to be a better 
way! 

I believe the key (or at 



least one of them) to further 
and future growth for Forth 
is in interactive development 
systems for microcontrol- 
lers — systems that rely 
heavily on the resources of 
the host computer to provide 
editing, compiling, and in- 
teractive control of minimal 
target hardware. But not a 
system so power hungry that 
it needs a $25 thousand, 24- 
megabyte Sun workstation 
to run a simulation that takes 
four days to complete. I 
imagine a system that em- 
bodies a minimal monitor 
function in the target pro- 
cessor board, which is 
controlled by a powerful 



AT-class machine to give 
the user ICE-like power over 
target operations. I know 
I'm not the first to think of 
this, and there must be other 
people working in this di- 
rection, but I don't see many 
of them. 

I have to say "imagine" 
above, because I have yet 
to see such a system brought 
to market. A friend of mine, 
Mike Mayo is doing things 
like this with an Intel 80196, 



providing assembly and (still 
primitive) Forth source-level 
debugging of an application 
using a monitor in the target 
of less than IK. I have seen 
demonstration of it that 
make the hair stand up on 
the back of my neck. It is 
not complete, but the pos- 
sibilities boggle the mind. I 
have also heard that Forth, 
Inc. has something like this, 
but have not seen it. 

There are many people 
putting mini-Forth kernels 
on small cards, but they are 
still doing all their develop- 
ment on the card, which 
requires much more 
memory and power than 



the final application will 
need. This is fine for small 
production runs where the 
cost of the embedded con- 
troller can be high, but is 
usually cost prohibitive for 
large-market applications 
where every penny used in 
the controller cuts tens of 
thousands of dollars out of 
the profit. An ideal devel- 
opment system will impose 
little or no overhead (ROM, 
RAM, or performance) on 



Forth can provide a 
high-performance, low-cost 
way to test and debug 
embedded applications. 
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the target application, ei- 
ther during development or 
in the final product. A diffi- 
cult task perhaps, but not 
impossible. I am personally 
working toward this kind of 
development system, and I 
hope you will join me in 
these efforts to push Forth 
forward. 

In the final analysis, the 
name of the game is, "How 
do I develop a reliable ap- 
plication in the least time, 
for the lowest cost per unit, 
while providing functional- 
ity that is a cut above the 
competition?" 

The answer, of course, is 
"Forth" — at least it can be, 
with your effort and mine. 
We must provide tools that 
improve the efficiency and 
performance of engineers 
and programmers working 
on projects and applications 
that apply the power of 
microcontrollers to the 
challenges of the 90's. 
Hopefully, it will be easier 
to do than it is to say. 



Tom Zimmer is a Forth veteran who 
has left a mark on the language. His 
public-domain F-PC is a luxurious Forth 
environment whose many developer- 
oriented features fly In the face of 
traditional minimalism. It reminds us 
that not everyone wants to start from a 
position of austerity, no matter how 
Zen-like, and it answers many wtio 
say, "If only Forth could—" with a re- 
sounding, " — it can and it does!" 
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FIG Board Terms Drawing to a Close 

Call for 
Nominations 



The nominating process 
for the selection of Directors 
for the 1991 FIG Board of 
Directors is starting. The 
candidates elected to the 
two available director posi- 
tions will be able to serve a 
three-year term, with the 
possibility of reelection 
thereafter. 

To be considered for 
nomination, or to obtain a 
nomination by petition, you 
should carefully read these 
instructions. The nomina- 
tion and subsequent elec- 
tion processes take place as 
prescribed by our by-laws. 
As the following extraa from 
Article Vin, Section 1 of the 
by-laws indicates, open 
elections are made possible 
by the timely completion of 
steps stretching over at least 
a several-month time period. 

From the By-Laws... 

(a) Nominating Committee. 
The Board of Directors 
shall appoint a Nominat- 
ing Committee com- 
posed of at least two Di- 
rectors to select qualified 
candidates for election to 
vacancies on the Board 
of Directors at least 120 
days before the election 
is to take place. The 
Nominating Committee 
shall make its report at 
least 90 days before the 
date of the election, and 
the Secretary shall pro- 
vide to each voting 
member a list of candi- 
dates nominated at least 



60 days before the close 
of elections. 

(b) Nominations by mem- 
bers. Any 25 Members 
may nominate candi- 
dates for direaorships at 
any time before the 90th 
day preceding such an 
election. On timely re- 
ceipt of a petition signed 
by the required number 
of Members, the Secre- 
tary shall cause the 
names of the candidates 
named on it to be placed 
on the ballot along with 
those candidates named 
by the Nominating Com- 
mittee. 

(c) The Corporation shall 
make available to all 
nominees, an equal 
amount of space in Forth 
Dimensions to be used 
by the nominee for a 
purpose reasonably re- 



lated to the election, 
(d) Should a petition be re- 
ceived, a ballot process 
will be provided to the 
voting membership. 
Otherwise, the Secretary 
shall cast a unanimous 
ballot for the candidates 
as proposed by the 
Nominating Committee. 

Obtaining a Nomination 

The Nominating Commit- 
tee selects candidates for the 
ballot. FIG members who 
wish to become candidates 
this way should submit a 
letter requesting considera- 
tion by the Nominating 
Committee Cc^o FIG office) 
before the deadline. 

Alternately, a potential 
candidate shall obtain at 
least 25 signatures from FIG 
members and send this peti- 
tion to the FIG Secretary (c/o 



FIG office) before the dead- 
line. The names of qualify- 
ing candidates are placed 
directly on the voting ballot. 

The deadline for submit- 
ting either nominating peti- 
tions or letters requesting 
consideration by the Nomi- 
nating Committee is June 30, 
1991. Send these items to the 
HG office at P.O. Box 8231, 
San Jose, CA 95155. 

Gf the Secretary does not 
receive any nominating peti- 
tions by June 30, 1991, then 
the Secretary will cast a 
unanimous vote for the can- 
didates selected by the 
Nominating Committee. In 
such a case, the membership 
at large will not receive vot- 
ing ballots.) 

The next ir "tortant date 
after June 30 of this election 
year is July 14, if there are 
any petitions. It is the dead- 
line for candidates to submit 
their candidate statements 
so that they can appear in the 
September-October issue of 
Forth Dimensions, 

Ballots will be included in 
the September-October is- 
sue of Forth Dimensions, if 
necessary. The voting bal- 
lots must be retumed to the 
FIG office by November 15, 
1991. The newly eleaed di- 
rectors will assume their du- 
ties at the next Board of 
Directors meeting. 



Nominating Petitions must be worded as shown. 




The following FIG members certify that they are current FIG members and 
nominate <candidate-name> to fill the position of Director of the FIG Board of 
Directors for the term November 1991 through November 1994. 


Member Name 
fPlease Print) 


Member 
Signature 


Member 
Nymber 


Date 
Signed 


<name1> 
<name2> 
<name3> 


<name1> 
<name2> 
<name3> 


<number1> 
<number2> 
<number3> 


<date> 
<date> 
<date> 


<name25> 


<name25> 


<number25> 


<date> 
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eForth—A Portable 
Forth Model 



C. H. Ting 

San Mateo, California 



e Forth is the name of a 
Forth model designed 
to be portable to a large 
number of the newer and 
more powerful processors 
which are available now and 
are becoming available in 
the near future. Originally it 
was called pigForth; how- 
ever, because of very strong 
objections from many expe- 
rienced Forth programmers, 
a less provocative name was 
adopted after much heated 
debate at the 1990 Rochester 
Forth Conference. 

PIG originally stood for 
Post-Forth Interest Group, a 
term used by Mr. Andreas 
Gopold, a Forth program- 
mer from Germany, to en- 
courage p)eople to think of 
the future of Forth, in light of 
recent advancements in 
computer hardware and 
software technologies. His 
feeling was that Forth in its 
present shape and form will 
not be useful for program- 
mers in the future, because it 
does not provide enough 
support for program devel- 
opment, especially for large 
and very demanding projects. 
He thus felt that Forth has to 
develop in the direction as 
Tom Zimmer's FPC, Mitch 
Bradley's ForthMacs, and the 
Leibnitz he (Goppold) de- 
veloped. These systems are 
huge because they incorpo- 
rate lots of tools and utilities 

Forth Dimensions 



useful in the programming 
process. 

I am stealing the "pig" for 
a different purpose. As we 
are marching into the nine- 
ties, we are confronting a 
host of new and very pow- 
erful microprocessors of dif- 
ferent architectures and de- 
signs. The excitement is not 
the least bit less intense than 
in the seventies when the 
first crop of eight-bit miao- 
processors made their ap- 
pearance. The Forth Interest 
Group captured the imagi- 
nation of the first generation 
of personal computer en- 
thusiasts by releasing the fig- 
Forth model riding on six 
different microprocessors. It 
is, thus, very interesting to 
see if we can build a Forth 
which can be easily ported 
to many, if not all, of the new 
and future microprocessors. 
This is pigForth. 

The straightforward an- 
swer would have been to 
use the fig-Forth model and 
port it to the new processors. 
The most serious problems 
are that the fig-Forth model 
assumed that the host pro- 
cessor had to be an eight-bit 
processor and that the stack 
width was l6 bits. There are 
other problems and limita- 
tions in fig-Forth. In addi- 
tion, the programming envi- 
ronment in which a com- 
puter is used has changed 



drastically over the last 15 
years. In the following sec- 
tions, I shall evaluate these 
interesting developments in 
an effort to lay down the 
ground rules and the funda- 
mental design of eForth, 
which might give us a good 
handle on the new proces- 
sors in the coming decade. 

The Changing Time 
and Environment 

In the seventies, personal 
computers were novelties, 
totally standalone systems 
you put on your desk and 
had them do work for you. 
(Or, more precisely, you 
willingly became enslaved 



alone. 

fig-Forth, like all Forth 
systems at that time, had to 
be self-sufficient also. It had 
to be able to support key- 
board input, screen and 
printer output, and the disk 
drive for mass storage. An 
editor was always the first 
application a Forth user did, 
because that was the only 
way he could proceed with 
serious programming. 

F83 was a giant step for- 
ward, and much human en- 
gineering went into it to fa- 
cilitate programming, in- 
cluding a better editor, more 
extensive debugging tools, 
and a smoother interface to 



The largest change in the 
eighties was the separation of 
the processor from the 
programming environment. 



to them.) But a personal 
computer, in order to be 
useful, had to contain the 
programming environment. 
Thus, one needed a CPU 
with memory, the keyboard, 
the display monitor, the disk 
drive, and the operating 
system including languages 
and utilities. A personal 
computer must be self-suffi- 
cient to be able to stand 



the operating system. Never- 
theless, F83 was still an envi- 
ronment unto itself, tailored 
to a single user using a single 
machine. 

The largest change in the 
eighties was the separation 
of the processor from the 
programming environment, 
due to the proliferation of 
standard personal comput- 
ers, i.e., the IBM-PC and its 



Dr. C.H. Ting is respected throughout ttie Forth community for his many contribu- 
tions. Heedits the "More on Forth Engines" series (see FIG Mail Order Form) and 
currently is Vice-President of the Forth Interest Group. 
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Figure One. Personal computer system. 
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Figure Two. Embedded processor system. 
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clones. PCs became pro- 
gramming tools for other 
processors in separate boxes. 
I do not deny that there is still 
lots of programming done 
on PCs, for PCs; however, a 
very large portion of pro- 
gramming activities for newer 
and more advanced proces- 
sors is carried out on host 
computers separated from 
the target computers. 

The separation of the 
programming environment 
from the target processor had 
a great impact on the design 
of eForth — which I presume 
will go into the target pro- 
cessor, not the host computer. 
This is also of great advantage 
to the design of eForth, be- 
cause eForth does not have 
to include features supported 
by the host computer, and 
eForth's requirements can be 
greatly simplified. In a sense, 
eForth is addressing the 
needs of embedded proces- 



sors, the latest buzzword in 
the microprocessor world. 

A PC-Based 
Development Platform 

The microcomputer for 
which fig-Forth was designed 
can be shown schematically 
as in Figure One. It contained 
a CPU, some memory, and it 
had to talk to a keyboard, a 
monitor, and a disk. 

The microcomputer 
eForth has to deal with is 
much simpler, as shown in 
Figure Two. It is a CPU with 
some memory, j^erhaps with 
some peripherals which 
cannot be specified. It is 
connected to the outside 
through an RS-232 cable. This 
RS-232 line may not be used 
in real applications, but it is 
connected to a host computer 
during programming, testing, 
and debugging. In certain 
applications, the RS-232 
umbilical cord may never be 



severed, so that the host can 
download specific code to 
the target, to perform specific 
tasks depending on different 
circumstances. Many of the 
new generation of instru- 
ments are designed using 
this capability. 

Software for PC-Based 
Development 

Because of the prolifera- 
tion of personal computers, 
it makes sense to use them as 
the interface to the latest 
crop of CPUs. To enhance 
our ability to use these new 
CPUs, a version of Forth is 
required that can easily be 
made to run on any one of 
them. There are many 
tradeoffs to consider in de- 
signing such a universal 
Forth, yet its ability to be 
ported to many different 
CPUs remains the primary 
concem. 

There are also many 
models of Forth which we 
can draw upon in order to 
take advantage of the wis- 
dom accumulated over the 
last twenty years in the Forth 
community. These Forth 
models include fig-Forth by 
Bill Ragsdale, cmForth by 
Chuck Moore, FCode by 
Mitch Bradley, and bForth 
by Bill Muench. 

The following is a list of 
requirements for the univer- 
sal eForth model. Note that 
the editor, file server, and 
other utilities are provided in 
the host system, so the target 
CPU (running eForth) does 
not have to provide these 
services. 

• A small set of kernel words, 
which is machine depen- 
dent. Only this set of words 
is rewritten for a specific 
CPU. A minimum-kernel 
word set encourages 
porting eForth to new 
CPUs. 

• A high-level word set built 



on the kernel words. The 
high-level definitions must 
be portable to all target 
CPUs, including eight-, l6- 
and 32-bit machines. 

• The only I/O words are 
KEY, EMIT, and ?KEY 
because the only I/O de- 
vice in the target is the RS- 
232 port. 

• Image upload and down- 
loaduse EXPECT and TYPE 
built from KEY and EMIT. 

• EVALtJATE is used to in- 
terpret terminal input and 
downloaded source code. 

• Source code must be pro- 
vided in the MASM form. 
Metacompilation is unde- 
sirable because it is an 
obstacle to acceptance 
outside of the Forth com- 
munity. (See sidebar.) 

• Two source files are needed 
for each CPU: a kernel file 
containing CPU-specific 
code and a universal high- 
level-code file. 

• Total number of words is 
between 150 to 200. 
Mechanisms must be in- 
cluded for extension word 
sets. 

Seeding the eForth 
Model 

The ideal of eForth has 
been tossed around for a 
year now. It has been dis- 
cussed extensively at the 
Silicon Valley HG Chapter, 
in the last few FORML ses- 
sions of the chapter meet- 
ings. To help decide how to 
implement eForth, various 
models were evaluated, in- 
cluding fig-Forth, F83, 
cmForth, LaForth, ZenForth, 
Fcode, the ANS Standard 
basis, and bForth. Recently, 
the consensus favored 
bForth, whose principal au- 
thor is Bill Muench. It has a 
very small core of machine- 
specific words, and also has 
most of the features desired 
in eForth. 

I took the model and 
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implemented it on an IBM- 
PC in Microsoft Assembler 
(MASM) format. The MS- 
DOS-equipped personal 
computer was chosen be- 
cause it is such standard gear, 
and MASM was chosen be- 
cause it, also, is readily ac- 
cessible. MASM and a PC are 
within the reach of every 
serious programmer. 

The MASM source list- 
ings we produced have be- 
come the boilerplate for sub- 
sequent implementations of 
eForth. As such, this first 
implementation defines what 
the eForth model is in more 
profound ways than any 
other documentation. Fur- 
thermore, iVIASM should be 
the tool used to create other 
eForth implementations, 
rather than a metacompiler, 
as explained in the sidebar 
accompanying this article. 

MASM was designed to 
assemble programs specifi- 
cally for the 80x8x class of 
processors. However, it can 
be used to produce code for 
other types of processors after 
some hand-assembled code 
is inserted via the use of 
special MASM data-handling 
commands (DB, DW, DD, 
DQ, and DT). 

eForth is not really de- 
signed for the PC, but for the 
CPUs likely to be used in 
embedded applications sys- 
tems. Nevertheless, the 
MASM listings can be used to 
create a working eForth sys- 
tem when assembled on 
80x8x systems rurming DOS. 

Because a PC version of 
eForth has been created first, 
a large number of program- 
mers already have the 
equipment needed to use it. 
The resulting Forth system is 
tiny, with a code area of six 
Kbytes and a name area of 
two Kbytes. UsingMASM and 
running the executable ob- 
ject files it can produce, the 

(Continued on page 30.) 
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How Metacompilation Stops the 
Growth Rate of Forth Programmers 

Metacompilation is a trap. Forth seems to be easy to use and master until you try to do 
metacompilation. Conceptually, metacompilation is straightforward, because a Forth system 
contains all the necessary ingredients to recompile itself or a target system using a different 
CPU. However, there are many tricky loose ends which have to be tightened before you can 
succeed in the metacompilation. Only the very persistent Forth programmers, with great effort, 
can overcome the frustration of metacompilation to attend the Tao of Forth. 

Most Forth systems were built by Enlightened Forthians after they attended Tao and closed 
the loop on metacompilation. To prove that they indeed had the Tao of Forth, they might even 
include the metacompiler in their systems or sell it as an extra-cost option. Forth systems 
produced through metacompilation are elegant, appearing to be very tight, yet impossible to 
understand fully. Forth and Forth 's metacompiler are like chicken and egg, you cannot tell 
which comes first. You cannot understand one without understanding the other first. The most 
likely outcome is that you leave it without understanding either. This is precisely the syndrome 
which stops the growth rate of Forth programmers. 

fig-Forth broke this self-locking mechanism by offering source code in regular assembly 
languages, not in Forth. Writing Forth in assembly is clumsy, the source listing looks much 
more complicated than Forth written in Forth. However, written in assembly, fig-Forth hid 
nothing from the user. The process of building a Forth system can be understood completely 
by programmers fluent in the assembly languages of the released fig-Forth models. 

The immense success and popularity of fig-Forth clearly showed that complete knowledge 
of a Forth system could be, and has been, appreciated by a large segment of assembly 
programmers. 

Following fig-Forth, and after the Forth-83 Standard was established, [Laxen & Perry's] 
F83 was released. Although F83 was much superior than fig-Forth in its capabilities and its 
integrated environment, with many utilities built into the system, it did not penetrate the 
programming community outside the existing Forth society. The most significant stumbling 
block was that F83 was built by metacompilation. Although the complete source code of F83 
system and the metacompiler are published, very few Forth programmers fully understood the 
system. How could we expect programmers off the streets to make use of F83? Failing to 
penetrate deeply into the assembly programmer's community, it is not unexpected that FIG 
membership dwindled since 1985. We are preaching to the choir and forget that if the Forth 

community is to grow, 

the new Forthians must 
be converted from non- 
Forth users. Did we pro- 
vide means for their con- 
version? 

eForth counters the 

trend towards metacompiled Forths, along with their implementation complexities. Its 
reduced breadth is compensated for by the PC itself and by tiie PC's operating system. Witii 
the possibility of off-loading certain housekeeping tasks, such as file support, the eForth 
approach offers the kind of benefits associated with both minimal Forths and fat Forths. This 
helps provide a development environment equipped to meet the needs of programmers who 
have to deal with the CPUs of the 1990's, because it is based upon the tools and environments 
ofUie 1990's. 

Very powerful CPUs are marching into the marketplace. Every one of them cries out for 
a good Forth implementation so that users can fully realize their capabilities in number 
cranching, digital signal processing, high-speed telecommunication and networking, etc. 

To make it very easy to port eForth to the new CPUs, eForth must be as simple as possible. 
Its portabiUty is enhanced through having very few machine-code routines. Nevertheless, 
talented implementors are free to optimize the model's otherwise high-level code, thereby 
making effective use of the specialized capabilities of a given CPU. 

—Dr. C. H. Ting 



fig-Forth defeated this mechanism 
by offering source code in regular 
assembly languages. 
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Menu Words 



John Edgecombe 
Oxnard, California 



rhis utility owes its in- 
spiration to Frans Van 
Duinen's article iFD 
VII/2), referenced in Screen 
Zero of the accompanying 
code. It may come as a sur- 
prise to others, as it did to 
me, that the word .X" 
(Screen Five), essentially 
identical to .AX" in Frans' 
code, uses [COMPILE] to 
compile a non-immediate 
word. This takes some 
thought, and it is informative 
to check out the actions of 
[ ' ] , ' , COMPILE, and 
[COMPILE] in your system 
to see the differences. 

MASTER (Screen 11) is 
laid down in the dictionary 



John Edgecombe is a Professional 
Land Surveyor. He uses Forth for 32- 
bit matti and computational geometry 
oneight-bitprocessors, white avoiding 
floating point. 



Do we dare tell them 
that Forth isn't a vitamin, 
it's an aphrodisiac? 



as shown in Figure One (in 
MicroMotion's direct- 
threaded Z80 Forth. 

Everything looks like a 
normal colon definition until 
you get to ( . X" ) , which is 
laid down by the ticked CFA 
of the word to be executed 
when this menu item is se- 
lected. 

That is followed by a 
counted string. The charac- 
ter after the count is the key 
that selects this menu item, 
followed by its description. 



Thus, SLAVEl (Saeen 
Nine) will look like this on 
the screen: 

SLAVE2 MENU 
A -> ITEM 4 
B -> ITEM 6 
C -> SLAVE 1 

When loading SLAVE2, 
notice that SLAVEl isn't 
compiled yet, so the deferred 
word SLAVE . 1 is substi- 
tuted and later vectored to 
SLAVEl. Thus, you can go 
anywhere from anywhere! 

BALLOT^ (Screen Two) 
executes as a top-of-menu- 
stack @ word, while the 14 
bytes allotted to it (totalling 
16) function as a stack for 
holding the CFAs of menus. 
The bottom-of-stack is 
seeded by START with the 
CFA stored in the deferred 
word ITINERARY. 
BALLOT '"FILL spreads the 
seed throughout the stack in 
order to initialize it. Push and 
pop functions are handled 
by >BALLOT and BALLOT>. 
>BALLOT will not overwrite 
the seed, so stack overflow 
affects intermediate menus 
but not the root menu; and 
underflow is harmless. 

In BALLOT (Screen 
Seven), the choice of key- 
stroke values may be system 
dependent. The exit key was 
originally a null, but that is 
non-portable to CP/M sys- 
tems because the OS filters 
out nulls so that BALLOT 



May 1991 June 



18 



never sees them. A little in- 
teractive fiddling with KEY . 
illuminated the situation. 
EXIT is a programming aid 
to letyou get out of the menu 
loop without rebooting. 
(DISPLAY. BALLOT) and 
(DISPLAY. RESTORE) can 
be left unvectored to scroll 
the screen. They can be vec- 
tored to DARK to home the 
cursor and clear the screen. 
Fancy menu boxes are left to 
the readers to design. 

Why is TOUR a separate 
word? BALLOT^ IP ! could 
be substituted inside BALLOT, 
but the hint in the name 
TOUR would be lost and the 
growth of the return stack 
would not be obvious. IP ! 
could be renamed IP_PUSH 
because it causes return-stack 
growth. The R> DROP in 
>BALLOT (Screen Three) 
pops the leftover CFA, cir- 
cumventing return-stack 
growth. The code may have 
system-dependent side ef- 
fects: SEE goes on a wild 
goose chase. 

The "help" words in 
Screen Eight are an obvious 
candidate for customization. 
The simple demonstration in 
Screens Nine through 11 al- 
low you to get some feel for 
the menus. After backtrack- 
ing four levels, the average 
user is likely to use Esc to 
jump back to the root menu. 

I hope the reader finds 
this a useful addition to Forth. 

(Code begins on page 20.) 
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Figure One. Dictionary stmcture of master. 
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Epilog 

There will be attrition in Forth as there is in life, but 
where are the new births in Forth? 

A student soon learns that original thoughts don't 
conform to multiple-choice answers. Students are 
encouraged to regurgitate, but not to think; the uni- 
versal refrain is, "I hate word problems." Real-world 
problems aren't trivial. Facts do not stand alone, they 
must be interwoven into the fabric of the intellect, just 
as a good cook seasons the evening meal. 

Forth is a gourmet language. Canned languages can 
be very convenient, like the frozen dinner: just heat 
and eat. It's not a feast, but it doesn't take a gourmet 
chefs skills, either. 

If you describe a gourmet meal to someone who 
has never indulged, they may reply, "Who needs it?" or 
"I just had my checkup, and the doctor didn't find any 
vitamin Forth deficiency symptoms." 

Do we dare to tell these people that Forth isn't a 
vitamin, it's an aphrodisiac? 



$ Contest Announcement $ 

Call for Papers! 



Forth Dimensions is sponsoring a contest 
to encourage authors of articles 

about Forth and 
"Object-Oriented Programming" 



1st prize: $500 
2nd prize: $250 
3rd prize: $100 

See this issue's editorial for details! 
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(Editorial, from page 4.) 

to be held in October 1991. 
He invites authors to send 
their work for inclusion; ar- 
ticles must contain fewer than 
5,000 words and must be 
received by August 1. (Send 
papers or write for details 
from Mr. Zeng Jing, Office 
for Soliciting Contributions, 
China Management Software 
College, Xue Yuan Road, Ji 
Men Li 100088, District of 
Hai Dian, Beijing, China.) 

Also in October of this 
year, the seventhEuroFORML 
conference is to be held at 
the Casino of MariSnsk6 
(Marienbad), Czechoslova- 
kia. This year's conference 
will again focus on Forth in 
real-time applications. To be 
included in the proceedings, 
papers must be received by 
September 23. Eariy regis- 
tration is advised. (For in- 
formation, contact Marina 
Kern or Klaus Schleisiek- 
Kern, Uhlenhorster Weg 3, 
D-2000 Hamburg, Germany; 
phone +49 40 229<S441 or fax 
+49 40 2297205.) 

P.S. About our Facelift. . . 

Content is primary, but 
form also communicates: a 
publication's design signifi- 
cantly contributes to how 
the public feels about its 
message. And while FUs 
previous design served us 
well, we came to need more 
flexibility and efficiency on 
our pages and a more con- 
temporary tone. So this issue 
unveils a fresh new design 
for Forth Dimensions. It will 
evolve in coming issues, but 
I invite comment on what 
you see here. 

Desktop publishing and 
telecommunications long 
have helped us to achieve 
good results within our re- 
sources. Their advent a few 
years ago weaned us from 
the then-usual outside type- 
setting service; today's in- 
creasingly sophisticated tools 
are assisting us to streamline 
the production process fur- 
ther in ways that bring new 
economy without loss of 
quality. We hope you agree! 
— Martin Ouverson 
Editor 
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SCR# 

\ Menu words 



5DEC90JWE 



Menu words for heirarchical menu tree traversal with a 7 level 
lookback stack featuring return to master menu on stack 
underflow. 

.X" is a modification of .AX" from Frans Van Duinen's 
article "Menus in forth", FORTH DIMENSIONS, Vol. VII No. 2, 
pg 15-19. 

: PERFORM @ EXECUTE ; 



SCR# 1 

\ Menu words 

ONLY FORTH DEFINITIONS ALSO DECIMAL 



5DEC90JWE 



2 7 THRU 
8 LOAD 
9 11 THRU 



\ MENU WORDS 
\ HELP WORDS 
\ DEMONSTRATION 



SCR# 2 

\ Menu words 
DECIMAL 

DEFER (DISPLAY. BALLOT) 
DEFER (DISPLAY. RESTORE) 
DEFER (HELP) 
DEFER ITINERARY 
VALUE BALLOT* 
VARIABLE OLDX 
VARIABLE .X~ 



5DEC90JWE 



' NOOP IS (DISPLAY. BALLOT) 

' NOOP IS (DISPLAY. RESTORE) 

' NOOP IS (HELP) 

14 ALLOT 



HI." COMPILE +HILITE [COMPILE] ." COMPILE -HILITE ; 

IMMEDIATE 

HITYPE COMPILE +HILITE COMPILE TYPE COMPILE -HILITE ; 
IMMEDIATE 



SCR# 3 

\ Menu words 5DEC90JWE 

: >BALLOT ( --) R> R> R> DROP SWAP >R 
[ • BALLOT* >BODY DUP ] LITERAL 

[ DUP 2+ ] LITERAL 12 CMOVE> LITERAL ! ; 

: BALLOT> ( --) BALLOT* 3 - ( ->BODy) OLDX ! 

[ ' BALLOT* >BODY DUP 2+ ] LITERAL LITERAL 14 CMOVE ; 

: BALLOT*FILL ( --) [ ' BALLOT* >BODY DUP 2+ ] LITERAL 
LITERAL 14 CMOVE > ; 
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FIG 

MAIL ORDER FORM 



NEW 



HOW TO USE THIS FORM: Pteaseenteryourorderonthe backpage ofthUfonnand send with yourpayment to the Forth interest Cto 
Most items list three different price catagories: USA, Canada and Mexico / Other countries Surface Mail / Other countries Air Mail 

Note: Where only two prices are listed, Sur&ce Mail is not available. 



FORTH DIMENSIONS BACK VOLUMES 

The six issues of the voliune year (May-April) 

Volume 1 Forth Dimensions (1979/80) 101 - $15/16/18 

Introduction to FIG, threaded code, "TO" variables. fig-Fortfi. 

Vohime2 Forth Dimensions (1980/81) 102 -$15/16/18 

Recursion, file naming. Towers of Hanoi, CASE contest, input 
number word set, 2nd FORML report, FORGET, VIEW. 

Volumes Forth Dimensions (1981/82) 103 -$15/16/18 

Forth-79 Standard, Stiacks, HEX, data base, music, memory 
management, high level interrupts, string stack, BASIC 
compiler, recursion, 8080 assembler. 

Vohime4 Forth Dimensions (1982/83) 104 -$15/16/18 

Fixed-point Trig, Fixed-point square root, fiactional arithmetic, 
CORDIC algorithm, interrups, stepper motor control, source 
screen docimientation tools, recuraon, recursive decompiler, file 
systems. Quick Text Formatter, romablc Fot^, Indexer, Fortti-83 
Standard, teaching Forth, Algebraic Expression Evaluator. 

Volumes Forth Dimensions (1983/84) 105 - $15/16/18 

Coiiq>uter graphics, 3-D animation, double precision math 
words, overlays, recursive sort, a simple muUt-tasket, meta- 
compilation, voice ou^t, number utility, menu-driven software, 
vocabulary tutorial, vectoretd execution, data acquiffltion, fixed- 
point logarithms. Quicksort, fixed'{x>int square root. 

Volume 6 Forth Dimensions (1984/85) 106 -$15/16/18 

Interactive editors, anonymous variables, list handling, integer 
solutions, control structures, debugging techniques, recursion 
simiphores, simple I/O words. Quicksort, high-level packet 
conimumcations, China FORML. 

Volume? Forth Dimensions (1985/86) 107 - $20/22/25 

Generic sort. Forth Spreadsheet, control structures, psuedo- 
interrupts, number editing. Atari Forth, pretty printing, code 
modules, universal stack word, polynomial evaluation, F83 
strings. 

VohimeS Forth Dimensions (1986/87) 1(»- $20/22/25 

Interrupt driven serial input, data base fimctions, TI 99/A, 
XMODEM, on-line documentation, dual-CFA's, random 
numbers, arrays, file query. Batcher's sort, screenless Forth, 
classes in Forth, Bresenham line-drawing algorithm, unsigned 
division, DOS file I/O. 

Votailie9 Forth Dimensions (1987/88) 109 - $20/22/25 

Fractal landscapes, stack error checking, peipetual date routines, 
headless con^iler, execution security, ANS-Forth meeting. 
Computer Aided Instruction, local variables, transcendental 
fimctions, education, relocatable Forth on 68000. 

VohimelO Forth Dimensions (1988/89) 1 10 - $20/22/25 

dBase file access, string handling, local variables, data structures, 
object-oriented Forth, Linear Automata, standalone applications, 
8250 drivers, serial data conpression. 



Volume 11 Forth Dimensions (1989/90) 111 -$20/22/25 

Local variables, graphic filling algorithms, 80286 extended 
memory, expert systems. Quaternion Rotation calculation, 
multiprocessor Forth, Double-entry bookkeeping, binary table 
search. Phase- Angle Differential Analyzer, sort contest. 

Volume 12 Forth Dimensions (1990/91) 1 12 - $20/22/25 

Flooreddivision,stackvariableB, embedded control. Atari Forth, H 
optomizing compiler, dynamic memory allocation. Smart RAM, 
extended precision math, interrupt handling, neural nets, Soviet 
Forth, arrays, meta-C(Mnpilation. 

FORML CONFERENCE PROCEEDINGS 

FORML (Forth Modification Laboratory) is an educational 
forum for sharing and discussing new or unproven proposals 
intended to benefit Forth and an educational forum for discussion 
of the technical aspects of applications in Forth. Proceedings are 
a compilation of papers and abstracts presented at the atmual 
conference. FORML is part of the Forth Interest Group. 

1980 FORML PROCEEDINGS 3 10 - $306 1/40 
Address binding. Dynamic Memory Allocation, Local Variables, 
Concurrency, Binary Absolute & Relocatable Loader, LISP, 

How to manage Forth Projects, N-Level File System, 
Documenting Forth, Forth Structures, Forth Strings. 

1981 FORML PROCEEDINGS 3 1 1 - $45/48/55 
CODE-less Forth Machine, Quadruple Percision Arithmetic, 
Overlays, Executable Vocabulary Stack, Data Typing in Forth, 
Vectored Data Stmctures, Using Forth in a Classroom, Pyramid 

Files, BASIC, LOGO, Automatic Cueing Language for Multi- 
Media, NEXOS - a ROM Based Multi-tasking Operating System 

1982 FORML PROCEEDINGS 3 12 - $30/3 1/40 
Rockwell Forth Processor, Virtual Execution, 32-bit Forth, 
ONLY for Vocabularies, Non-IMMEDIATE Looping words, 
NUMBER Input Wordset, I/O Vectoring, Recursive Data 
Structures, Programmable Logic Compiler. 

1983 FORML PROCEEDINGS 3 13 - $30/32/40 
Non-Von Neuman Machines, Forth Instruction Set, Chinese 

Forth, F83, Compiler & Interpreter Co-Routines, Log & 
Exponential Function, Rational Arithmetic, Transcendental 
Functions in Variable-Precision Forth, Portable File System 
Interface, Forth Coding Coirventions, Expert Systems. 

1984 FORML PROCEEDINGS 3 14 - $30/33/40 
Forth Expert Systems, Consequent-Reasoning Inference Engine, 
Zen Floating Point, A Portable Graphics Wordset, 32-bit Forth, 
HP71B Forth, NEON-Object Oriented Programming, 
Decomjriler Design, Arrays and Stack Variables. 



1985 FORML PROCEEDINGS 3 15 - $30/32/40 

Threaded Binary Trees, Natural Language Parsing, Small 
Learning Expert System, LISP, LOGO in Forth, Prolog 
Interpreter, BNF Parser in Forth, Formal Rules for Phrasing, 
Forth Coding Conventions, Fast High-Level Floating-Point, 
Forth Component Libaray, Forth & Artificial Intelligence, 
Electrical Network Analysis, Event Driven Multi-tasking. 
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1986 FORML PROCEEDINGS 3 1 6 - $30/32/40 
Threading techniques, Prolog. VLSI Forth Microprocessor, 
Natural Language Interface, Ejqjert System Shell, Inference 
Engine, Multiple Inheritance System, Automatic Programming 
Environment 

1987 FORML PROCEEDINGS 3 17 - $40/43/50 
Includes papers from '87 euroFORML Conference. 32 bit 
FORTH, neural networks, control structures, AI, optimizing 
compilers, hypertext. Field and Record Structures, CAD 
Command Language, Object Oriented Lists, Trainable Neural 

Nets, Expert systems. 

1988 FORML PROCEEDINGS 318- $24/25/34 
Human interfaces. Simple Robotics Kernel System, MODUL 

Forth, Language topics, hardware, Wil's workings & Ting's 
philosophy. Forth hardware applications, ANS Forth session. 
Future of Forth in AI Applications. 

1989 FORML PROCEEDINGS 319 -540/43/50 
Includes papers from '89 euroFORML. PASCAL to Forth, 
extensible optimizer for con^iling, 3-D measurement using 
object-oriented Forth, CRC polynomials, F-PC, Hanis C cross- 
compiler, modular approach to robotic control, RTX recompiler 

for on-line maintenance, module, trainable neural nets. 

1990 FORML PROCEEDINGS 320 - $40/43/50 
M| Forth in Industry, Communications Monitor, 680S Development 

3-Key Keyboard, Documentation Techniques, Object Oriented 
Programming, Simplest Forth Decompiler, Error Recovery, 
Stack Operations, Process Control Event Management, Control 
Structure Analysis, Systems Design Course, Group Theory using 
Forth 

1988 AUSTRALIAN PROCEEDINGS 380 $24^5/34 

Proceedings from the first Australian Forth Symposium held 
May, 1988 at the University of Technology in Sydney. Subjects 
include training, parallel processing, programmable controllers, 
Prolog, simulations & applications. 

BOOKS ABOUT FORTH 

ALL ABOUT FORTH , 3rd ed., June 1 990, Glen B. Haydon 201 - $90/92/105 
An annotated glossary of most Forth words in common usage, 
including F-79, F-83, F-PC, MVP-Forth. Implementation 
examples in high-level Forth and/or 8086/88 assembler. Usefiil 
commentary is given for each entry. 

THE COMPLETE FORTH , Alan Winfield 210 - $14/15/19 

A comprehensive iittroduction including problems with answo-s 
(Forth79) 

F83 SOURCE , Henry Laxen & Michael Pfeny 217 - $20/2 1/30 

A complete listing of F83 including source and shadow screens. 
Includes introduction on getting started. 

FORTH, APPLICATIONS IN ENGINEERING AND INDUSTRY 
B John Matthews (hard cover only) 218 - $66/68/76 

This book introduces hardware engineers to control of 
microprocessor-based products through Forth programming. 
How to add to the conventional assen^ty language environment 
to facilitate development, &ctoiy test, & product maintenance is 
showed. F83 & fig-Fotth are compared. The design of a simple 
controller on which many of the examples given can be 
reproduced exactly, together with support software for a PC, are 
given in the appen<£ces. 

FORTH: A TEXT AND REFERENCE 219 - $31/32/41 

Mahlon G. Kelly & Nicholas Spies 

A texfcook approach to Forth with comprehensive references to 
MMS-FORTH and the 79 and 83 Forti Standards. 



FORTH ENCYCLOPEIHA , Mitch Derick & Linda Baker 220 - $30/32/40 

A detailed look at each fig-FORTH instruction. 
FORTH NOTEBOOK, Dr.CJI.Ting 232 - $25/2605 

Good examples and applications. Great learning aid. 

PolyFORTH is the dialect used. Some conversion advice is 

included. Code is well documented. 
FORTH NOTEBOOK H , Dr. C. H. Ting 232a - $25/26/35 

Collection of research papers on various topics as image 

processing, parallel processing and miscellaneous applications. 
INSIDE F-83, Dr.CHTing 235 - $25/26/35 

Invaluable for those using F-83. 
LIBRARY OF FORTH ROUTINES AND UTILmES, James D.Teiry 

237 -$23/25/35 

Conqjrehensive collection of professional quality computer code 
for Forth; offers routines that can be put to use in almost any Forth 
application, including expert systems and natural language 
interfaces. 

MASTERING FORTH , 2nd Edition, Anita Anderson & Martin Tracy 

240 -$22/23/28 
A step-by-step tutorial including each of the commands of the 
Forth-83 International Standard; with utilities, extensions and 
numax>us exan^es. 

OBJECT ORIENTED FORTH, Dick Pbuntain 242 - $28/29/34 

Implementation of Data Structures. First book to make object 
orientated programming available to users of even very small 
home computers. 

STACK COMPUTERS, THE NEW WAVE 244 - $62/65/72 

Philip J. Koopman, Jr. (hard cover only) 
Presents an alternative to Complex Instruction Set Computers 
(CISC) and Reduced Instruction Set Computers (RISC) by 
showing the strengths and weaknesses of stack machines, (hard 
cover only) 

STARTING FORTH, 2nd Edition, Leo Biodie 245 - $29/30/38 

In this edition of Starting Forth, the most popular and complete 
introduction to Forth, syntax has been expanded to include the 
new Forth '83 Stendard. 

TOOLBOOK OF FORTH 267 - $23/25/35 

(Dr.Dobb's) Edited by Mariin Ouverson 
Expanded and revised v^ions of the best Forth articles collected 
in the pages of Dr.Dobb's Journal. 

TOOLBOOK, V.1& DISK (MS-DOS) 267a - $40/42/50 

TOOLBOOK OF FORTH, V J, (Dr. Dobbs) 268 - $30/32/40 

Complete anthology of FORTH programminmg techniques and 
developments, picks up where V.l left off. Topics include 
programming windows, extended control structures, design of a 
FORTH target comiriler and mote. 

TOOLBOOK, \2 & DISK (MS-DOS) 268a - $46/48«6 



REFERENCE 

ANS X3J14 BASIS DOCUMENT 306 - $15/1 6G0 

Current - August 1 990 

Working document of the X3J14 ANS Forth Committee, changes 
frequently, but useful as a working tool. 
FORTH 83-STANDARD 305 $15/16/18 

Authoritative description of 83-Standard Forth. Reference, not 
instruction. 

SYSTEMS GUIDE TO fig-FORTH 3 10 - $25/28/30 

C. H. Ting - 2nd Edition, 1989 

Hows and Whys of die fig-Fordi Model by Bill Ragsdate, Internal 
structure of fig-Forth system. 
BIBLIOGRAPHY OF FORTH REFERENCES 340 - $18/19/25 

3rd Edition, January 1987 

Over 1900 references to Forth articles throughout computer 
literature. 

F-PC USERS MANUAL, 2nd Edition, V35 350 - $20/21/27 

Us^ Manual to die public dranain Forth system optimized for Ifae 
IBM-PC/XT/AT computer. A fat, fast system with many tools. 

F-PC TECHNICAL REFERENCE MANUAL 351 - $30/32/40 

A must if you need to know the inner workings of F-PC. 



Contributions from the Forth Community 

The FIG "Contributions From the Forth Community" disk library 
contains author submitted donations, generally including source, for 
a variety of computers on their respective cUsk formats. The files 
usage is determined by the author as Public Domain, Shareware, or use 
with some restrictions. This library does not contain "For Sale" 
applications. 

To submit your "Contributions", send them to the FIG Publications 
Committee. 

The cost is per disk: $6/9 for one (1) 

$25/28 for any five (5) 

FLOAT4th.BLK V1.4 Robert L. Smith COOl - (1) 

Software Floating-Point for fig, Poly, 79-STD, 83-STD 
Forths. IEEE Short 32-l»t, Four standard functions. Square 
Root and Log. IBM. 

Gaines in Forth C0a2-(1) 
Misc Games, GO, TETRA,l4fe,... Source. IBM 

F83 V2.01 , Mike Perry & Hemy Laxen C 100 - (1) 

The newest version that has been potted to a variety of 
machines. Editor, assembler, decompiler, meta-compiter. 
Source and shadow screens. Manual available separately 
(see items 217 & 235). Base for other F83 applications. 
IBM, 83. 

F-PC V3 .53, Tom Zimmer C200 - (5) 

A fiill Forth system with pull-down menus, sequential files, 
editor forward assembler, meta-compiler, floating point. 
Con^lete source and Help files. Manual for V33 available 
separately (see items 350 & 351). Base for other F-PC 
applications. Hard disk recommended. IBM, 83. 

F-PC TEACH V3.5 , Lessons 0-7 Jack Brown C201a - (2) 

Forth classroom on disk. First seven lessons fi'om Jack 
Brown of BC Institute of Technology on learning Forth. 
IBM, F-PC. 

VP-Planner Float for F-PC , Vl.Ol Jack Brown C202 - (1) 

Software floating point engine behind the VP-Planner 
spreadsheet. 80-bit (temporary-real) routines with 
Transcendental Functions, NUMBER IAD support, vectors 
to support numeric coprosessor overlay and user NAN 
checking. IBM, F-PC. 

F-PC Graphics V4.2f, Mark Smiley C203a - (3) 

The latest versions of a number of new graphics routines 
including CG.A, EGA and VGA suppport, with numerous 
improvements over earlier versions created or supported by 
Mark Smiley. IBM, F-PC. 

PocketForth V1.4 , Chris Heilman C300 - (1) 

Smallest complete Forth for the Mac. Access to all Mac 
fiinctions, files, graphics, floating point, macros, create 
stand-alone applications and DA's. Source and manual 
included. MAC , based on fig & Starting Forth 

Yerkes Forth V33 C350-(2) 
Complete Object Oriented Forti for fte Mac. Object access 
to all Mac fiinctions, files, gra[4iics, floating point, macros, 
create stand-alone applications. Source, tutorial, assembler 
and manual included. MAC 

JLISP V1.0,NickDidkov8ky C401-(l) 
LISP interpreter invoked fiom Amiga JForth. The nucleus 
of the interpreter is the result of Martin Tracy's work. It has 
been extended to allow the LISP interpreter to link to and 
execute JForth words. It can conmiunicate with JForth's 
ODE (Object Development Environment). AMIGA, 83. 

PYCMY V13,FrankSetgeam C500-(l) 
A lean, fast Fctdi with fiill source code. Includes fiill screen 
editor, assenibler, and meta-compiler. Up to 1 5 files open at 
onetime. IBM. 

KForth, Guy Kelly C600 -(3) 

A fiill Forth system with windows, mouse, drawing, and 
modem packages. Source code and documentation 
included. IBM, 83. 

ForST, John Redmond C700-(l) 
Fot6\ for the Atari ST. Source and documentation included. 
Atari ST. 



ACM - SIGFORTH 

The ACM SIGForth Newsletter is published quarterly by the 
Association of Con^juting Machinery, Inc. SIGForth's focus is on 
the development & refinement of concepts, methods and 
techniques needed by Forth professionals. 

Volume 1 Spring 1989 900 - $6/7/9 

F-PC, Glossary utility, Euroforth, SIGForth '89 Workshop 

summary (real-time software engineering), Intel 80x8x. 
Volume 1 Summer 1989 901 - $6/7/9 

Metacompiler in cmForth, Forth exception handler, string case 

statement for UF/Forth. 
Volume m Fall 1989 902 - $6/7/9 

1 802 simulator, tutorial on multiple threaded vocabularies. 
Volume 1#4 Winter 1989 903 - $6f7/9 

Stack firames, duals: an alternative to variables, PocketForth. 
Volume 2#2 December 1 990 904 - $6/7/9 

BNF Parser, Abstracts 1990 Rochester Conf, F-PC Teach 
Volume 2M March 199 1 904 - $6/7/9 

Tethered Foitii Model, Abstracts 1 990 SIGFORTH Conf 
1989 SIGForth Workshop Proceedings 93 1 - $20/2 1/26 

Software Engineering, Multi-tasking, interrupt driven systems, 

object oriented Forth, error recovery & control, virtual memory 

support, signal processing. 

MISCELLANEOUS 

T-SHIRT "May the Forth Be With You" 601 - $12/13/15 

(Specify size: Small, Medium, Large, Extra-Large on order form) 
White design on a dark blue shirt. 
POSTER (BYTE Cover) 602 $5/6/7 

FORTH-8J HANDY REFERENCE CARD 683 -FREE 

WE'RE SURE YOU WANTED TO KNOW SERIES " 

Forth UmemUms , Article Reference 1 5 1 - $4/5 

A listing of Forth articles by keyword firom Forth Dimensions 

Volumes 1 thru 12, 1978 thru 1991 
FORML, Article Reference 1 52 - $4/5 

A listing of Forth articles by keyword, author, and date fi'om the 

FORML Conference Proceedings, 1980 thm 1989 



$15/16/18 



MORE ON FORTH ENGINES 

Volume 10 January 1989 810 

RTX reprints from 1988 Rochester Forth Conference, object 

oriented cmForth, lesser Forth engines. 
Volume 11 July 1989 811 

RTX Supplement to Footsteps in an Empty Valley , SC32, 32 bit 

Forth engirve, RTX interrupts/utility. 
Volume 12 April 1990 812 

ShBoom Chip architecture and instructions. Neural Computing 

Module NCM3232, pigForth, Binary Radix Sort on 80286, 

68010, and RTX2000. 
Vohimel3 October 1990 813 

PALs of the RTX2000 Mini-BEE, EBForth, AZForth, 

RTX2101, 8086 eForth, 8051 eForth. 



fig-FORTH ASSEMBLY LANGUAGE SOURCE 

listings of fig-FORTH for specific CPUs and machines with compiler security and 
variable length names. - $ 1 5/1 6/1 8 



flg-FORTH INSTALLATION MANUAL 

Glossary model editor - we recommend you purchas( 
when purchasing the source code hstings below. 



1802 
6502 
6800 
6809 
8080 
8086/88 



513 - March 81 

514- September 80 

515 - May 79 

516 - June 80 

517- September 79 

518- March81 



9900 

Apple n 

IBM-PC 

PDP-11 

VAX 

Z80 



519 

521- 

523- 

526- 

527 

528- 



501 
^ this manual 

March 81 
August 81 
March 84 
January 80 
October 82 
September 82 



MEMBERSHIP IN THE 

The Forth Interest Group is a world-wide, non-profit, membei^supported 
organization with over 1,500 members and 40 chapters. FIG membership 
includes a subscription to the bi-monthly magazine. Forth Dimensions . FIG 
also offers its members an on-line data base, a large selection of Fc»th literature 
and other services. 

Cost is $40.00 per year for USA & Canada surfece mail; $46.00 Canada air 
mall; all other countries $52.00 per year. No sales tax, handling fee, or discount 
on membersh^. 



FORTH INTEREST GROUP 

When you join, your first issue will arrive in four to six weeks, subsequent 
issues will be mailed to you every other month as &ey are published - six issues 
inall. You will also receive a membra^hq} card and tiumber which entitles you 
to a 10% discount on publications fit>m FIG. Your member number will be 
required to receive the discount, so keep it handy. 

Dues are not deductaUe as a charitable contribution for U.S. federal income 
tax purposes, but may be deductable as a business expense where applicable. 



P.O. BOX 8231 



FORTH INTEREST GROUP 

SAN JOSE, CALIFORNIA 95155 (408)277-0668 



(408)286-8988(FAX) 



Name 



Company 
Street 



City 

State/Prov. 
Country _ 



Zip 



Daytime phone 



OFFICE USE ONLY 




Bv Date 


Type 


Shijjoedbv 


Date 


UPS USPS 


XRDS 


Wt. 


Amt. 


BOBv 


Date 


Wt. 


Amt. 





Item# 



Title 



•MEMBERSHIP 



Qty. 



Unit Price 



Total 



si 1 lil I I )\\ 



□ CHECK ENCLOSED (Payable to: Forth Interest Group) 

□ VISA □ MasterCard 

Card Number 



Expiration Date 
Signture 



($15.00 minimum on all VISA/MasterCard orders) 



Sub-Total 



10% Member Discount 
Member ft 



Sub-Total 



**Sales Tax (CA only) 



Mail Order Handling Fee 



CH New DRenewal 



♦Membership 
$40/46/52 



* Enclosed is $40/46/52 for 1 fiill years dues. 
This includes $34/40/46 for Forth Dimensions. 



$3.00 



MAIL ORDERS 

Send to: 

Forth Interest Group 

PO Box 8231 

San Jose, CA 95155 



PHONE ORDERS 

Call 408/277-0668 
to place credit card 
orders or for 
customer service. 
Hours: 

M-F,9am-5pm pst. 



PAYMENT MUST ACCOMPANY ALL ORDERS 



PRICES POSTAGE & 

All orders must be prepaid. Prices are sub- HANDLINQ 

iect to change without notice. Credit card Prices indude 

orders will be sent and billed at cufrent shipping. A 

prices. $15 minimum on chaise orders. $3.00 handling 

Checks must be in US$, drawn on a US fee is required 

bank. A $10 charge will be added for re- with all orders, 
turned checks. 



SHIPPING TIME 

Books in stock are shipped 
within seven days o1 receipt of 
the order. Please allow 4-6 
weeks for out-of-stock books 
(deliveries in most cases will be 
much sooner). 



" CALIFORNIA SALES TAX BY COUNTY 

6.25%: Sonoma; 6.5%: Fresno, Imperial, Inyo, 
Madera, Monterey, Orange, Riverside, Sacra- 
mo^o, San Benrto, Santa Barbara, San Bernar- 
dino, and San Joaquin; 7%: Alameda, Contra 
Costa, Los Ar^geles, San Oiegc, San Mateo, 
San Francisco, Santa Clara, and Santa Cruz; 
6%: Other counties. 
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(Letters, from page 5.) 



SCR# 4 

\ Menu words 5DEC90JWE 

: UKEY ( char -- CHAR) 

KEY 127 AND 96 OVER < OVER 123 < AND IF 95 AND THEN ; 

: START (--)[' ITINERARY >BODY ] LITERAL @ ?DUP 

IF >BODY [ ' BALLOT'^ >BO0Y 14 + ] LITERAL ! \ seed it 

BALLOT'FILL \ spread seed 

ITINERARY \ do it 
ELSE HI." ITINERARY NOT VECTORED" BEEP 
THEN ; 



SCR# 5 

\ Menu words 



5DEC90 JWE 



(.X") 

R> ( IP@) DUP @ ( cfa) DUP ROT 2+ COUNT \ (cfa cfa string) 
2DUP + >R ( IP!) \ IP -> IP+$ 

-ROT TUCK C@ DUP EMIT \ ( cfa 1 en addr cfa char) 

PAD COUNT 2DUP 3 + SWAP 1- C! + TUCK C! 1+ ! \ ( cfa 1 en addr) 

." -> " 1+ SWAP 1- ROT OLDX @ = \ ( string f) 

IF .X~ ON HITYPE 

ELSE TYPE 

THEN CR ; 



: .X" 

COMPILE (.X") [COMPILE] ' , ,' 



SCR# 6 

\ Menu words 



IMMEDIATE 



5DEC90JWE 



TELLER ( char true! false) 

UKEY PAD COUNT + 2DUP C! >R \ ( char) 

PAD 2- BEGIN 3 + 2DUP C@ = UNTIL DUP R> = \ ( char pad+ f) 
IF DROP DUP 13 = .X~ AND 

IF DROP ." DEFAULT " CR FALSE 

ELSE TRUE 

THEN 

ELSE 1+ @ OLDX ! EMIT CR FALSE 
THEN ; 



: TOUR BALLOT' >R ; 
SCR# 7 

\ Menu words 



losopherMacintosh software 
developer who runs a natu- 
ral foods store and who lives 
at a growth center in the 
Montana Rockies, it has not 
revealed an easy path to fi- 
nancial solvency. Besides, the 
Mac listens better when 1 
speak Pascal. 

Forth may find its niche 
in embedded control devices, 
but its virtues as a general 
programming language — 
compactness, speed, 
interactivity, flexibility (anar- 
chy) — have become old- 
fashioned indeed, and are 
frequently superseded by 
mainstream languages in 
more fully evolved develop- 
ment environments with 
vastly larger user communi- 
ties. 

I'm not trying to convince 
anyone, but I thought you'd 
be interested in the mind of 
a defector with close to nine 
years of using Forth. If noth- 
ing else, it's been fun — and 
that may be the only thing 
that counts. 

Sincerely, 
Laughing Water 
1090 Helena Avenue 
Helena, Montana 59601 



5DEC90JWE 



: BALLOT ( --) >BALLOT 

BEGIN PAD OFF .X~ OFF ( DISPLAY . BALLOT ) 
CR TOUR TELLER ( DISPLAY . RESTORE) 
IF DUP 27 = IF DROP BALLOT'FILL ELSE 
DUP 32 = IF DROP BALLOT> ELSE 
DUP 63 = IF DROP (HELP) ELSE 
31 = IF EXIT ELSE 

HI." INVALID SELECTION" CR BEEP 
THEN THEN THEN THEN 
ELSE OLDX PERFORM 
THEN 

AGAIN ; 



SCR* 8 

\ Menu words 5DEC90JWE 
VARIABLE HELPf 



: HELP! HELP# ! ; 



: HELP CR CR HELP* @ ." See help #" . CR KEY DROP ; 



' HELP IS (HELP) 
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NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLUDE: 



•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI-SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 
DEBUGGING AIDS 

•8088 ASSEMBLER 

•GRAPHICS & SOUND 

•NGS ENHANCEMENTS 

•DETAILED MANUAL 

•INEXPENSIVE UPGRADES 

•NGS USER NEWSLETTER 

A COMPLEH'E FORTH 
DEVELOPMENT SYSTEM. 



PRICES START AT $70 

KEW<»-HP-150 & HP-110 
VERSIONS AVAILABLE 

IIS 

NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, OA. 95055 
(408) 241-5909 



SCR# 9 

\ Menu words 



ITEMl 


. " THIS 


IS 


ITEM 


1 


tl 


10000 





DO 


NOOP 


LOOP 


ITEM2 


. " THIS 


IS 


ITEM 


2 


fl 


10000 





DO 


NOOP 


LOOP 


ITEM3 


." THIS 


IS 


ITEM 


3 


If 


10000 





DO 


NOOP 


LOOP 


ITEM4 


. " THIS 


IS 


ITEM 


4 


*l 


10000 





DO 


NOOP 


LOOP 


ITEMS 


. " THIS 


IS 


ITEM 


5 


11 


10000 





DO 


NOOP 


LOOP 


ITEM 6 


. " THIS 


IS 


ITEM 


6 


It 


10000 





DO 


NOOP 


LOOP 



DEFER SLAVE. 1 



SLAVE2 BALLOT 1 HELP! 
HI." SLAVE2 MENU" CR 
.X" ITEM4 AITEM 4" 
.X" ITEM6 BITEM 6" 
.X" SLAVE. 1 CSLAVE 1" ; 



SCR# 10 

\ Menu words 

: SLAVEl BALLOT 3 HELP! 
HI." SLAVEl MENU" CR 
.X" ITEMS AITEM S" 
.X" SLAVE2 BSLAVE 2" 
.X" ITEM6 CITEM 6" ; 



: SLAVE3 BALLOT 

HI." SUB MENU SELECTOR" CR 
.X" SLAVEl ASLAVE 1" 
.X" SLAVE2 BSLAVE 2" ; 



SCRt 11 

\ Menu words 



: MASTER BALLOT 5 HELP! 
HI." MASTER MENU" CR 
.X" SLAVEl ASLAVE 1" 
.X" SLAVE2 BSLAVE 2" 
.X" ITEMl CITEM 1" 
.X" ITEM2 DITEM 2" 
.X" ITEM3 EITEM 3" 
.X" SLAVE3 FSLAVE 3" ; 

' SLAVEl IS SLAVE. 1 

' MASTER IS ITINERARY START 
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Add and Delete 
Scteens in PDE 



Walter J. Rottenkolber 
Visalia, California 



A fter modifying my 
/-X Kaypro II with larger 
disk drives, I was fi- 
nally able to crank up my 
Laxen and Perry F83 files. I 
rapidly became disen- 
chanted by the standard, 
arcane line editor, and 
longed for the simplicity of 
Laxen's full-screen editor as 
implemented on my fig- 
FORTH by Bob Bumalla. So 
it was with great hope that 
I greeted Frans Van Duinen's 
PDE iForth Dimensions^/ 
2), since it was based on 
Laxen's. 

The real advantage of 
PDE, I soon found, is the 
editor's seamless integration 
of screen-handling and de- 
bugging utilities. In small 
memory systems such as 
my Kaypro II (64K), screens 
enable you to deal with 
monster source files without 
having to scan through acres 
of text. But adding or de- 
leting screens has been 
awkward and is, too often, 
avoided by using spaghetti- 
like screen-load lists. In PDE, 
ADD-SCR! andDEL-SCR! 
were to provide the luxury 
of doing so with a single 
keystroke. 

However, I soon dis- 
covered they had a number 
of rough edges. 

1. After adding or deleting a 
few screens, the source 

Forth Dimensions 



and shadow screens be- 
came de-synchronized, 
so that the shadow 
screens referred to the 
wrong source screens. 

2. Adding or deleting mul- 
tiple screens led to 
numbers of duplicate 
screens that caused no 
end of confijsion. 

3. As the file filled up, it was 

easy to add screens and 
find that the end screens 
had shifted off into 
oblivion. 

In the accompanying 
code, I present an extended 
set of words to correct these 
problems. Screen Zero out- 
lines the improvements. 

Screens One through 
Nine contain the routines 
for the PDE version. YE SNO ? 
and CONF I RM in Screen One 
are from PDE and are here 
to help implement a 
standalone version. I added 
the CR in CONFIRM to help 
in screen text presentation. 
Many of the other words 
may seem the same as in 
PDE, but be warned: most 
have been redefined. ADD- 
SCR! and DEL- SCR! are 
assigned to a control or 
function key, so one key- 
stroke from within the edi- 
tor does it. You return to the 
same, numbered screen. 



Screen 10 is a guide to 
implement a non-PDE ver- 
sion, using ADD-SCR and 
DEL-SCR. The primary dif- 
ference is the need to sup- 
ply the base screen number 
to these words. You will 
also need the variable SCR — 
which will hold that value 
for several of the routines — 
and the CONVEY words from 
the Forth-83 utilities. 

Screen 1 1 is an example 
of how the WIPE routines 
clear a duplicate screen 
(format suggested by an 
Atari fig-FORTH), at least in 
the first two lines. Normally, 
the rest of the screen is 
blanked out. I've included 



Using the new ADD- 
SCR! and DEL-SCR from 
within PDE is simple. Be- 
fore you begin, though, the 
variably SHOW must be set 
ON if using shadow screens, 
and OFF if using straight 
source screens. This is im- 
portant for the correct rou- 
tines to be chosen. The TOG- 
SHDW key on my system 
displays the setting on the 
status line, and makes 
switching easy. To do this, 
you need the variable OLD- 
SHDW and, also, follow the 
lead of Mode in the STUS 
word. 

Pressing the appropriate 
function key from within 



The promise of PDE 
as an alhpurpose 
development environment 
has been fulfilled. 



my (?ERROR) and 
(WHERE) words, as their 
original incarnations would 
crash my system, a problem 
you might be facing. With 
these words, a LOAD error 
now results in a beep, fol- 
lowed by entering the edi- 
tor, typing out the error 
message in the second 
window, displaying the 
screen, and positioning the 
cursor after the offending 
word. 



23 



the screen causes the screen 
number to be checked. No 
adds or deletes are allowed 
from the shadow screens. 
This forces you to look at 
the source screens before 
manipulating them. 

Next, a request for the 
number of screens to add or 
delete appears in the second 
window. I did this as mul- 
tiple individual adds or de- 

(Conlinued on page 35.) 
May 1991 June 
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a.\ Md/Oelete Sore«is Words 
1 

2 •*«* Uords to Add and Delete Screens fro* a File 

3 

A 

5 i}erived from ^££88, but ivproved to: 
fi 

7 1. Maintain synchronization between source 

fi and shadow screens. 

9 2. Check for adequate s(»ce to Add screens, and 

10 enlarge file if necessary. 

11 3. Blank duplicate screens and Jiark the« as 'Spare'. 

la 

13 Words are designed to be used fros within POE, 

14 but can be Mdified for pure coiwand-line use. 
IS 



3 

.\ EMPTY? MORE? IS-SffflH? 

! EMPTY? < 5cr# ~ f ) 

K.0I3< I C/L 2+ 3 LITEi?flL + 

I C/SCR C/l - £- 3 LITERflL -TWJILIMB NIP j 

: KRE? i - f } 

\ Checks if eore file screens iTfiUE) are needed. 

FflL^ CflPfiCITY SW)W? IF £/ THEN DUP HOPPED 9 - 

?D0 DROP I EMPTY? NOT IF TRUE LEftVE THDI FALSE LOOP ; 

: 1S-S<DW? < - f ) 

\ Dieck if scri a shadow, and set flag TRUE if so. 
Sm? IF SCR « CflPflClTY 2/ 1- > aSE FALSE THEN j 



1 

» .\ YESNO? COKFIRN SHDW S»«)W? TO&-SM)W ai>-SHDU 



1 

3 
4 
5 
£ 
7 
8 
9 
10 
11 
1£ 
13 
14 
15 



VESND? < addr len — f ) 

TYPE <Y/N)? • 

fiE&IN SKEY DUP EMIT 0DF AM) 
DUP ASCII Y = SWAP ASCII N " 
OVER OR 0= WHILE DROP BEEP 

CONFIRM ( addr Im ~ f ) 
0W8 YESNO? CR 0= IF R> DROP THEN 



VARIABLE SUM 
UARIABLE OLO-SHDU 



am ON 
OLD-SHMOFF 



\ -) f<=Y> f<=N) 
BS BilT R0)EAT ; 



SHOW? ( - f > SHOW ; 

\ Fetches Shadow flag 

TOB-SHDH < ~ > SHDW SUP NOT SWAP 



.\ CONVEY+ CONVEY- 

: CO»€Y<- < scrl scrS — ) HOPPED - CONVEY ? \ Boving up 



! CONVEY- < scrl scrS ~ ) 

SWAP HOPPED - SWAP CONVEY ; 



\ aoving down 
\ Add neg • 



0.\ WIPE WIPES WIPE-SCR WIPE-SCR^S»ffiW 
1 

2 : WIPE ( serf ~ > 

3 \ Blanks scr., wrks it 'Spare*, < puts >\S* in line 11. 

4 SLOCX DUP >R C/Sat BLANK 

5 • .\ Spare" R0 SWAP MOVE • \S" R> C/L ♦ 
fi SMAP MmC UPMTE ; 

7 

S I WIPES ( fror^cr* to-scr# — } 
9 20UP < IF SWAP THEN ?00 I WIPE LOOP ; 
10 

11 : WIPE-SCR { scr* — > 

12 UP HOPm * WIPES ; 
13 

14 ! WIPE-SCR«SHDW i scr* — ) 

15 DUP WIPE-SCR CAPACITY S/ * WIPE-SCR ; 



5 

.\ MDRE-SCR MORE-SCR+SNOW QDUF-SCR? 

: MMJE-SCR i — ) 
HOPPED MORE ,- 

: MC»)£-SCR4-SHDW ( ~ > 

CAPACITY DUP 2/ DUP ROT 1- HOPPED 
2» MORE CONVEY+ WIPE-SCR ; 

: EMJFSCK? i — f ) 

MORE? IF • Increase File Size to Insert Screens?" 

YESNO? CR IF am? IF MORE-S[»+SHDN aSE MORE-SCR THEN TRUE 

aSE . ■ Add Screen Aborted!" CR FALSE THEN aSE TRUE THBH ; 
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6 

1 

2 1 <(flI»-SCR+SHD«» < scr# - ) 

3 Dtp t SHODOW } >SHimi CAPACITY 

4 DUP >» 1- CONVEY* R> 2/ 1- COWEV+ j 
5 

fi I ((A2)i>-SCR» ( 5cr« - > 

7 CflPfiClTY 1- CONVEY* j 
B 

9 : («»-SCR*SNDU) ( — ) 

i» SO? » Dtp itmscn^sm)} uiP£-scR*&m 
11 

12 : <«)D-Sa?) < — ) 

13 SCI? » DUP <(AI»-SCR» WIP£-SCR ; 
14 

15 

7 

« .\ WDSCn WD-BCR .' 
1 

2 : nO-SCR In — ) 

3 «S 1 Mm NOP WffiK-UPD 

4 ENUF-SCR? IF SNSW? IF imhSCn*SHM) 

5 ELSE (ABD-SCR) 7MEN THEN ; 
fi 

7 

B : fmSCSti I — ) 

9 Me I5-SNDW? IF . * Cannot Add Screens froa Shadat' Ot 
II ELSE . * * Scraenf to Add: MM! CR 

11 IF BEEP OnOP ELSE OUP IF AOi>-SCfi 

12 ELSE MOP THEN VBi THDi flUICK-INIT ; 
13 

14 
15 

S 

• .\ OKwa? (sa-scfftsNOW) (oel-so?) 

1 

2 t ac«a? ( - f ) 

3 HDPfO tmssatt * 1- CAPnCITY SUM? 

4 IF 2/ THEN <Dlf> NOT 

5 IF Delete Screens Too High" CR THQi ; 
fi 

7 I (KL-SOWSHDW) ( - > 

B fiCff ff DIP CAPACITY OtP }R 2/ 1- COMCY- 

9 I 8HRD0W 3 >SHADaH f» 1- CONVEY- 

It R> 2/ WIPE-SCft+SHDU ; 
11 

12 I (OEL-GCR) ( — } 

13 SCR ff CAPACITY OtP >R 1- CONVEY- R> WIPE-SCR ; 
14 

15 



9 

.\ DEL-SOT DEL-SCR.' 

; DEL-SCR < n ~ ) 

flfiS 1 MAX NEGATE HOP " Delete screen* CONFim 
OKiDEL? IF Stm? IF 

<DEL-SCR+S«)«> ELSE <DEL-SCR) THEN THEN j 

: DEL-SCR) < ~ ) 

IS-sm? IF . ■* Cannot Delete Screens from ShadoM- CR 
aSE . ' * Screens to Delete: ■ IN* CR »° 
IF BEEP DROP ELSE DIP IF DEL-SCR 
B.S£ DROP THEN THEN TNQO QUICX-INIT ; 



18 

.\ Al»-SCR DEL-SCR 

! ADD-SCR < n scr# — ) 
SCR .> A6S 1 MAX NOP 

IS-SHDW? IF . ' Cannot Add Screen fro* Shadow" CR 
aSE ENtJF-SCR? IF SWN? IF (A2»-SCRfSHDU} 
ELSE («X)-SCR> THEN THEN THEN ,■ 

: Da-SCR < n scr# - ) 

SCR > ABS 1 MAX NEBATE NOP ' Delete screen* CONFIRM 
IS-SHDW? IF . * Cannot Delete Screen from Shadow* CR 
aSE OK*Da? IF StffiU? IF 
<Da-SCR*SNDW) aSE (Oa-SCR> THEN n£N THEN ; 



11 

.\ Spare 
\S 

: (ERfiOR> t adr lert — ) adr len scr* epos ) 

BLK 8 IF SLK 9 >IN 9 UHE/E aSE SPACE TYPE SPACE 
THEN SPe e SP.> PRINTINB OFF OilT ,* 

: <?ERROR) ( adr len f — ) 

IF {ERROR} THEN 2DR0P ; \ fissaaes (ERRO?) OUITs 

' (?ERR0R> IS ?E>HiOR 

\ : .'I^ ( epos ~ > <CURS ■ ; 

: (UNERE) ( adr len 5cr« epos — ) 

BEEP *CPOS SET-SCR OTH-INIT «N2 TYPE flUICK-INIT (V) ; 

« (WHERE) IS UHERE \ Link into ABORT 
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(Continued from page 6.) 

the responsibility and the 
authority. It is not true 
that quality is equal to the 
price you pay for it , the 
quality of services to FIG 
by volunteers is in fact 
much greater than any- 
one could afford to pay. 

• Chapters, are they ftjnc- 
tiorung, the future, help 
from the center? 

• Conventions, Forth Day — 
expand to national? 

• Forth Dimensions chan- 
ges necessary? Changes 
in direction? 

• Publications okay? 

• FORML okay? New direc- 
tion, educatioa' 

• Time for a new fig-Forth? 

• Time for the sun to set on 
HG? 

Forth 

• Standards 

• Time is passing us by 
while we improve Forth, 
applications? 

Actions and 
Explanations 

Financial review for publi- 
cation. 

Two years ago the FIG 
Board of Directors took up 
the question of a public 



statement in Forth Dimen- 
sions about the financial 
situation of FIG. It was de- 
cided then that it was de- 
sired, but the final form 
needed to be reviewed later 
by the Board. To those of 
you who are interested, in 
the next issue of Forth Di- 
mensions znd in every July/ 
August issue of FD, FIG will 
publish a review of the fi- 
nances of FIG over the pre- 
vious year. 



Silence isn't secret. 

Because there has not 
been a lot of discussion of 
FIG business in the past in 
Forth Dimensions doesn't 
mean that FIG has been 
keeping any secrets. If any- 
thing, we have wanted to 
keep from boringyou. Many 
people read FD for its tech- 
nical content. However, 
enough of you have wanted 
to know what is going on 
internally that I will make it 
my business to try to keep 
you informed. I hope I am 
starting in that direction with 
this column. 

Dues increases. 

For Volume XII of FD, 
FIG'S income from mem- 
bership dues and advertis- 
ing in FD was 52% of in- 
come while the expense for 
the same volume was 54%. 
The difference in the past 
has always been covered by 
sales of books and reserve 
that had been accumulated 
over earlier years. In 1990, 
that translated to a FD cost 
of $35.21 per member per 
year. In 1991, we will at- 
tempt to reduce this, by 
consolidating paid jobs, to 



$32. 20 per member per year; 
but an expected loss of 
members due to the mem- 
bership increase to $40 in 
1991-1992 will probably 
offset the cost reduction. 

Is all of this helping or 
hurting? I can't see how a 
dues increase can ever help 
unless it is sufficient to ex- 
ceed the losses anticipated 
due to the increased dues. 
This increase will help in 
the short run of two to three 



years, but we must eventu- 
ally go one of two ways. We 
will be required to increase 
our membership to reduce 
the cost per membership or 
admit that we are an elite 
technical group and increase 
the membership dues radi- 
cally to serve the few who 
are willing to support these 
type of services. 

Annual billing. 

The tradition of FD has 
been as a technical journal 
and we have looked at our- 
selves as a valuable refer- 
ence for Forth programmers. 
How could anyone using 
Forth not want to have a 
complete reference to the 
current thinking of the Forth 
community, i.e., the current 
volume year? When new 
people find us, won't they 
want to know what we have 
been doing? Yes and no. 
Some have said they want 
to join and to continue to 
see what we are doing over 
the coming year. Our previ- 
ous policy was that, when 
someone joined FIG in mid- 
year, we would send them 
back issues of the current 
volume. 

The new policy, called 
"Annual Billing," will be 
similar to a magazine sub- 
scription. A person's mem- 
bership will begin when they 
join and they will receive 
the next six issues of FD, 
regardless of the current 
volume year. 

Publicity. 

If we are ever to become 
more than an organization 
that is talking to itself, we 
must publicize the fact that 
we exist and are here to 
help with Forth issues. We 
have tried over the past, the 
most notable being the Oc- 
tober 1980 issue of BYTE 
magazine. We have not had 
many publicity successes 



since then. We have at- 
tempted in several ways, 
but I thirJc that even though 
I was involved in the at- 
tempts, I would character- 
ize them as timid, ineffi- 
cient, and ineffective. We 
must make a much bolder 
attempt to find our kindred 
non-member spirits. The 
focus of discussion of sev- 
eral of the FIG Business 
Group's meetings will be 
publicity and all related 
topics. I want people to 
look at FIG as the place to 
go for information about 
Forth and the Forth com- 
munity, but they have to 
know we exist! 

I am always available for 
comments. 

—John Hall 
415-535-1294 (voice) 
or on GEnie as JDHALL 



Enough have wanted to know 
what is going on internaily that 
I wili make ft my business to 
keep you infomed. 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(513) 748-0390 P.O. Box 69, Springboro, OH 45066 



MEET THAT DEADLINE 1 1 ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Yes, it is faster than optimized C! 

• Compile 40,000 lines per minute! 

• Stay totsdly interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Use source code for 2500 functions! 

• Use data structures, control 
structures, and interface protocols 
from any other language! 

• Implement borrowed feature, often 
more efficiently than in the source! 

• Use an architecture that supports 
small programs or faW megabyte 
ones with a single version! 

• Forget chaotic syntax requiremente! 

• Outperform good programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FORTH with FOOPS - The onty 
full multiple inheritance 
interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
Now that is a null learning curve! 



WAKE UP I! t 

Forth is no longer a language that 
tempts programmers with "great 
expectations", then frustrates them 
with the need to reinvent simple tools 
expected in any commercial language. 

HS/FORTH Meets Your Needs! 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit firom not providing needed 
tools! Public domain versions are 
cheap - if your time is worthless. 
Usef^il in learning Forth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortehange you with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Porths. We won't throw in the towel, 
but the drain on resources delays the 
introduction of even better tools. Don't 
kid yourself, you are not just another 
drop in the bucket, your personal 
decision really does matter. In return, 
well provide you with the best tools 
money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to fossilized 
compilers. You are at the mercy of 
that language's vendor. You can easily 
add features from other languages to 
HS/FORTH. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as in the 
parent language. 

Speaking of assembly language, 
learning it in a supportive Forth 
environment turns the learning curve 
into a light speed escalator. People 
who failed previous attempts to use 
assembly language, conquer it in a few 
hours or days using HS/FORTH. 



HS/FORTH runs under MSDOS or 
PCDOS, or from ROM. Each level includes 
aU features of lower ones. Level upgrades: 
$26. plus price difference between levels. 
Source code is in ordinary ASCII text files. 

All HS/FORTH systems support full 
megabyte or larger programs & data, and 
run faster than any 64k limited ones even 
without automatic optimization ~ which 
accepts almost anything and accelerates to 
near assembly language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299. 
NEW! Fast direct to video memory text 
& scaled/clipped/windowed graphics in bit 
but windows, mono, cga, ega, vga, all 
ellipsoids, splines, bezier curves, arcs, 
turtles; lightning fast pattern drawing even 
with irregular boundaries; powerflil 
parsing, formatting, file and device I/O; 
DOS shells; interrupt handlers; 
caU high level Forth from interrupts; 
single step trace, decompiler; music; 
compile 40,000 lines per minute, stacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dental, 18 (Ugit integer & scaled integer 
math; vars: A B ♦ IS C compiles to 4 words, 
1..4 dimension var arrays; automatic 
optimizer for machine code speed. 

PROFESSIONAL LEVEL $399. 

hardware floating point - data structures 
for all data types from simple thru 
complex 4D var arrays - operations 
complete thru complex hyperbolics; 
turnkey, seal; interactive dynamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $499. 
Metacompiler: DOS/ROM'direct/indirect; 
threaded systems start at 200 bytes, 
Forth cores from 2 kbytes; 
C data structures & 8truct+ compiler; 
Turbo Window-C MetaGraphics library, 
200 graphio'window Ainctions, PostScript 
style line attributes & fonts, viewports. 

ONLINE GLOSSARY $ 46. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $ 79. 
TOOLS & TOYS DISK $ 79. 

286FORTH or 386FORTH $299. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fully and freely available; 
32 bit address/operand range with 386. 

ROMULUS HS/FORTH from ROM $ 99. 

FFORTRAN translator/mathpak $ 79. 
Compile Fortran subroutines! Formulas, 
logic, do loops, arrays; matrix math, 
FFT, linear equations, random numbers. 

Shipping^system: US: $7. Canada; $19. 
foreign: $49. We accept MC, VISA, & AmBx 
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FIG-FORTH 6502 

Sixty 'for matted 
Source Code 

Hank Wilkinson 
Greensboro, North Carolina 



Glen Haydon's "For- 
matting Source 
Code" iFD X/6) in- 
terested me in implementing 
his word set Left as an exer- 
cise to the reader was mov- 
ing the ASCII text file from 
disk to memory. A simple 
loop allows using Forth error 
screens along with Glen's 
FILECOMPILE word set. 

My implementation of fig- 
FORTH 6502 by W.F. 
Ragsdale is modified to run 
on Berkeley Softworks' 
GEOS for the Commodore 
64. (GEOS is the desktop 
metaphor; i.e., programs are 
run by clicking their icons 
with a mouse pointer.) The 



word processor GeoWrite 
allows all the structures use- 
ful for good documentatioa 
Fonts, tabs, emphasis, and 
margins all may be changed 
to format text in a pleasing 
manner. Drawings also may 
be inserted in documents. 

GeoWrite on the '64 
doesn't have the facility to 
save your document as a 
stripped ASCII file, with pic- 
tures, font, and emphasis 
stmctures removed Nor does 
the '64 have enough memory 
to contain all of a large docu- 



ment. 

A simple page-profiling 
routine revealed that a 3K 
buffer would easily hold the 
largest page I had written on 
my '64. Forth's method of 
screen handling gave me an 
algorithm for implementing 
text-loading facilities for my 
own system. Instead of 
screens, text pages would be 
retrieved and loaded. 

The challenge on my '64 
was incorporating text files 
seamlessly with the fig- 
FORTH saeen system. By 
constructing a word to ini- 
tialize the error screens and 
return a "safe" address, text 
files and error screens coex- 



ist 

Refer to Figure One. No- 
tice that Forth will not pass 
the BEGIN ... WHILE ... 
REPEAT without locating 
screen four (the first error 
message screen in fig- 
FORTH) at the F I RS T screen 
buffer. 

A fig-FORTH screen 
buffer consists of two bytes 
for the screen's number, 1024 
bytes for the saeen's data, 
and two guard bytes. +BUF 
points directly at the screen's 
data location, in the case of 



pages leaving useless the 
space for the screen number. 
The two bytes holding the 
screen's number are where 
Forth looks to determine 
whether a disk block should 
be written back to the disk. 

Because their value can- 
not be guaranteed (unless 
EMPTY-BUFFERS is ex- 
ecuted), the two bytes hold- 
ing the screen number were 
recovered, thus ending the 2 - 
in GETBUF. ASCII text bytes 
in the recovered location will 
not appear as UPDATEd. 
(Random data may.) 

When loading from text 
pages, the error screens are 
moved into the buffer area 
only once. Once loaded, the 
fig-FORTH disk routines 
"know" error screens four 
and five are located in 
memory. After the initial use 
of GETBUF, subsequent uses 
only take time performing 
arithmetic and branching. 

If an error causes IN- 
TERPRET to fail, the termi- 
nal input buffer is left point- 
ing where FILECOMPILE 
aimed it. After using 
FILECOMPILE a year or so 
ago, QUiTwas altered to reset 
TIB from the user variable 
initialization table at fig- 
FORTH's origin. QUIT may 
be forced to read the start-up 
value for T IB by inserting 2 2 
+ORIGIN @ TIB ! between 
RP ! and CR Since these al- 



terations, jimmying around 
with TIB causes no odd 
behavior — even when an 
error is encountered. 

GEOS on the '64 has fa- 
cilities to ease the process of 
reading one page of a text 
file from its word processor. 
GETPAGE was written using 
these facilities, reading one 
page from the current disk 
drive into memory. GETPAGE 
is passed the address of a 
file's lume, the page number, 
and the address of the buffer 
into which to put the page. 
After reading the disk, 
GETPAGE returns the GEOS 
"empty" flag (which is empty 
if zero, otherwise non- 
empty). 

(GETPAGE handles GEOS 
disk errors, issues error 
messages on the terminal, 
and aborts if appropriate. The 
following word FILTER- 
PAGE is implemented in 6502 
code. Both words are highly 
specific to GEOS and 
GeoWrite. Neither are shown 
here, but the entire system — 
called Brian — may be 
downloaded from Q-Link. 
Brian is unique in that 
symbol files for the GEOS 
symbolic debugging are 
supplied. This allows users 
to execute Forth under the 
total control of a powerful 
debugging tool, and to ex- 
amine its structure.) 

After a text file's page is 



Reality is, ForWs 

screeit'loading mecltanism 
can't liandle it. 
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Figure One. Initialization routine. 




: GETBUF ( — buf_ad.dr ) 




BEGIN 




4 BLOCK FIRST 2 + = 0= 




WHILE EMPTY-BUFFERS REPEAT 


5 BLOCK +BUF DROP 2 - 





Figure Two. Loading a GeoWrite page to memory. 



PLOAD ( page* — ) 

FN$ SWAP GETBUF GETPAGE ( — empty-flag ) 
IF GETBUF FILTERPAGE GETBUF PCOMPILE 
ELSE ." Empty VLIR " QUIT THEN ; 



Figure Tliree. Loading a range of pages, inclusive. 



TTHRU ( begin# end* — ) 
FN$ 16 TYPE SPACE 
1+ SWAP DO 
I . I PLOAD 

? TERMINAL IF LEAVE THEN 
LOOP ; 







Figure Four. Loading an entire file. 




: TLOAD ( — ) 
1 61 TTHRU ; 



moved into memory, execu- 
tion is passed to 
FILTERPAGE. Its purpose is 
to remove the very struc- 
tures producing good docu- 
mentation, but which Forth 
doesn't understand. Written 
in machine language, 
FILTERPAGE is fast. 

I had been told that the 
real way to load from text 
files is to make the text- 
formatting commands Forth 
no-ops. For example, a tab 
command's name would be 
an ASCII tab and would do 
nothing when encountered. 
This technique will not work 
easily without changing 
WORD. INTEBPRET's parser — 
i.e., BLWORD — needs a space 
delimiter. (Unless you have 
HS-FORTH, which allows the 
user to define delimiters.) 
There are other difficulties as 
Forth Dimensions 



well. 

With most word proces- 
sors, you may write some- 
thing like DuP. While a word 
processor may handle that, 
Forth cannot: Commands that 
change the fonts are inside 
the word DUP in the text file. 
Forth needs these stmctures 
stripped (or you'll end up re- 
writing the Fortran parser, if 
you add enough commands). 
FILTERPAGE simply re- 
places tabs, font commands, 
graphics, and so on with 
blanks. The user must re- 
member not to use font 
changes inside words. 
(Though font and emphasis 
changes may be used imme- 
diately before or after a word.) 

Once filtered, the address 
of the page is passed to 
PCOMPILE, which is Glen 
Haydon's filecompile. 



PLOAD (page loadD contains 
the commands that load one 
page. Given a page number, 
it opens a file whose name is 
in a string variable FN$, puts 
the page where GETBUF told 
it to, doses the file, and passes 
execution to PCOMPILE. 
(Figure Two.) 

When GETPAGE en- 
counters an empty record, its 
flag causes PLOAD to QUIT 
to the command line. In 
GEOS terminology, an empty 
record does not exist (A 
page with a lone page break 
is not empty.) With GeoWrite 
on the '64, the first empty 
page is the end of text. 

PLOAD made it simple to 
build TTHRU (Figure Three). 
This word is useful for load- 
ing a range of pages. (You 
might have debugging words 
in pages seven through 11, 
for example.) TTHRU also 
reads the keyboard and stops 
loading pages after a key is 
pressed. 

A GeoWrite text file on 
the '64 may fiave a maxi- 
mum of 6l pages. TLOAD 
(text load) simply passes 
TTHRU the page numbers 1 
and 6l. Notice that TLOAD 
will try to load all 6l pages. 



may cause a word's defini- 
tion to overflow a screen, 
aborting a LOAD.) 
FILECOMPILE allows doc- 
umenting or coding with 
equal ease. 

Another aspect FILE- 
COMPILE makes dear is the 
idea that a word's definition 
must be completed on one 
screen. This may have 
evolved into "good pro- 
gramming practice," but re- 
ality is that Forth's screen- 
loading mechanism can't 
handle such circumstances. 
Using FILECOMPILE' s 
switches, however, a word's 
definition may extend across 
multi-page boundaries. (Y ou 
may be as verbose and 
graphic as desired.) 

Hopefully, this discussion 
will encourage more pro- 
grammers to try Glen 
Haydon's FILECOMP ILE. Qf 
I can do it on a '64 using fig- 
FORTH, maybe it's easy?) 
Implementation on a system 
of your choice nukes it easier 
to teach Forth: Chances are, 
a t)eginner you know already 
uses your word processor. 



If I can do it on a '64 
using fig-FORTH, 
maybe it's easy? 

but stops trying (via PLOADed 
QUIT) when the first empty 
page is encountered. (Figure 
Four.) 

The dramatic impact of 
F I LECOMP I LE is that it turns 
inside-out the relationship 
between code and docu- 
mentation. You are normally 
in a documenting mode 
(mood). With screens, I 
normally have a slight hesi- 
tation to document, just be- 
cause of space consider- 
ations. (Note with screens, 
one comment line inserted 
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CALL FOR PAPERS 

for the thirteenth annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, 
vendors, and users. 

Following Thairi^sgiving 
November 29 — December 1, 1991 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 



Theme: Simulation and Robotics 

Papers are invited that address relevant issues in the 
development and use of Forth in simulation and robotics. 
Virtual realities, robotics, and graphical user interfaces are 
topics of particular interest. Papers about other Forth topics 
are also welcome. 

Presentations emphasizing virtual reality systems are 
being planned. Attendees are invited to enter a robot in a 
robotics contest where the robot solves a puzzle. 

Mail abstract(s) of approximately 100 words by Septem- 
ber 1 , 199 1 to FORML, P.O. Box 823 1 , San Jose, CA 95 1 55. 

Completed papers are due November 1, 1991. 

Registration and robotic contest information may be 
obtained by telephone request to the Forth Interest Group 
(408) 277-0668 or by writing to FORML. P.O. Box 8231, 
San Jose, CA 95155. 

The Asilomar Conference Center combines excellent 
meeting and comfortable living accommodations with se- 
cluded forests on a Pacific Ocean beach. Registration includes 
use of conference facilities, deluxe rooms, all meals, and 
nightly wine and cheese parties. 

This conference is sponsored by FORML, an activity of 
the Forth Interest Group. Information about membership in 
the Forth Interest Group may be obtained from the Forth 
Interest Group, P.O. Box 823 1 , San Jose, Cahfomia 95155, 
telephone 408-277-0668. 



(eForlh.from page 11.) 

user/implementor can ex- 
amine or exercise any of the 
following features. 

• 28 machine-dependent and 
193 high-level words. 

• Direct-threaded code. 

• Separate name and code 
dictionaries. 

• Deliberate use of user 
variables for ROM-ability. 

• Vectored ?KEY, KEY, and 
EMIT. 

• File handling via the serial 
I/O interface (two compu- 
ters are required)- 

• CATCH-THROW error han- 
dler. 

• Singly indexed FOR-NEXT. 

• Flexibility in memory 
mapping. 

Implementing eForth 
on Other Processors 

The eForth Model is de- 
signed for portability, and 
every effort is made to facili- 
tate the porting process. 

The eForth Model as- 
sumes that the CPU can ad- 
dress bytes in memory. All 
memory-accessing words use 
byte addresses. If your CPU 
cannot address bytes, you 
have to synthesize a byte 
address space from the cell 
addressing space and pro- 
vide a mechanism to trans- 
late byte addresses into cell 
addresses the CPU can use. 
The eForth Model does en- 
force alignment to cell 
boundaries to facilitate byte- 
to-cell address translation. 

The following procedure 
is suggested for porting it to 
a new CPU. After the generic 
eForth Model is ported to a 
target CPU, you might want 
to consider optimizing it to 
improve its performance. 

• Determine the memory 
map in the target system. 
Set memory pointers in 
the EQU section properly 
to reflect the physical 
memory of the target ; i.e., 
ROM, RAM, stacks, user 
area, code dictionary and 



name dictionary. 

• Study the machine-depen- 
dent kernel. If you have 
access to an assembler for 
the target CPU, rewrite the 
nuchine-dependent words 
in the assembler language 
of the target; then insert 
the binary objea produced 
by the assembler into the 
eForth source code using 
DB and DW statements. If 
you do not have an as- 
sembler, hand assemble 
the code words. 

• If you have tools to exer- 
cise the assembly code 
words, try to debug them. 

• Use MASM to assemble the 
eForth source files, pro- 
ducing binary object code. 

• Move the object code into 
your target system via 
EPROMs or other means. 

• Debug the target system. 

The originators of eForth 
expect that a programmer 
familiar with the machine 
code of a target CPU should 
be able to port this model in 
one month. Porting eForth 
could even be a class project 
for college seniors or gradu- 
ate students in an advanced 
assembly language class. The 
following list of processors 
are good candidates for 
eForth implementations (the 
Forth microprocessors will 
require a different porting 
strategy than that outlined 
above): 

8080, Z80, 8051/31, 8096, 
80960, 6502, 680x0, DSP16, 
DSP32, TMS320, 340x0, 
56000, ADSP2I00, 1750A, 
RTX2000, SC32, T425, 
T800, 88000. R3000, SPARC 
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News from the Forth RoundTable 





m 



Gary Smith (GARY-S on GEnie) 
Little Rock, Arkansas 



News from the GEnie Forth 
RoundTable— If you have 
been sleeping under a rock 
for the last couple of months, 
you may not be aware that 
the last BASIS document 
produced by the X3J14 ANS 
Technical Committee has, in 
fact, been decreed the review 
standard. (Only if you were 
sleeping under a boulder the 
last couple of years would 
you not have been aware 
that a ANS Standard Forth 
was being drafted. In that 
case, go back to sleep.) If 
you are interested in what 
the proposed standard con- 
tains, you can get your very 
own copy from the Forth 



Vendors' Group, c/o FORTH, 
Inc., 1 11 N. Sepulveda, Man- 
hattan Beach, CA 90206 for 
the princely sum of $10.00. 

If you conclude that this 
ends discussion of the pro- 
posed standard, you have 
beensleepingunderthe Rock 
of Gibraltar! There has been 
a torrent of discussion that 
seems to increase daily. The 
following exchanges concern 
primarily the ALSO . . . ONLY 
debate, and the messages 
were gleaned from the week 



prior to the drafting of this 
article. This very brief look at 
but one area of discussion 
should make it abundantly 
clear there is a lot of pro and 
con still to be debated. 

I must clarify something 
before proceeding to the 
exchanges. These messages 
were captured on GEnie, but 
obviously contain comments 
from the Usenet newsgroup 
comp.lang.forth as well as 
the RIME/pc-board Forth 
message base. That is be- 
cause this discussion rages 
on all branches of Forthnet, 
of which the GEnie Forth 
RoundTable is but a part. It 
would be quite impossible 



to separate the contributing 
members and maintain any 
sense of coherency. You, too, 
can participate by respond- 
ing on any branch. If you 
lack access to Usenet and 
your RIME BBS does not 
cany the xCFB Forth message 
base originating on The 
Grapevine, we cordially in- 
vite you to join the GEnie 
Forth RoundTable. 

Now, on to the discus- 
sion regarding ALSO/ONLY 
and GET/SET-ORDER, with 



a side glance at strings and 
portability. 

Topic 2 
ANS Forth Technical 
Committee 

This topic is for discussion of 
the ANS FORTH Technical 
Committee and their recom- 
mendations/actions; and 
your reactions. Please note: 
points raised in this topic will 
be relayed to the committee. 

Category 10, Topic 2 
From: Brad Rodriguez 
Doug Philips writes: 

"...what I really, really 
want is a way to write Forth 
code that will run on more 
than one Forth and more 
than one processor. Port- 
ability is my main interest in 
this ANSI process." 

Interesting. I've had rela- 
tively little trouble porting 
applications from processor 
to processor. It's moving from 
"standard" to "standard" that 
gives me headaches. 

From: Doug Philps 

"Interesting. I've had rela- 
tively little trouble porting 
applications from processor 
to processor. It's moving 
from "standard" to "stan- 
dard" that gives me head- 
aches." 

Okay, perhaps I should 
be a bit more explicit. I was 
thinking of PC versus Unix 
(Sun, Apollo, etc.). PC-Forths 



versus C-Unix Forths. Since 
there is no widespread de 
facto standard, switching 
from processors implies (or 
so I tried to assume) switch- 
ing between standards. 

From: Mitch Bradley 
Subject: Portability problems 

The differences between 
standards don't cause me too 
much trouble; the problems 
that bother me the most are 
coping with things that I have 
to deal with but which nei- 
ther fig-FORTH, Forth-79, nor 
Forth-83 bothered to address 
at all. Specifically: files, float- 
ing point, 32-bit machines, 
memory allocation, strings, 
and error handling. 

In the areas where previ- 
ous standards differ, there is 
a small finite number of 
possibilities, and it is fairly 
easy to make a few redefini- 
tions to cope with the two or 
three possibilities. The ex- 
ception is vocabularies, 
where previous standards 
differ so widely that the only 
portable thing to do is to not 
use them! 

In the areas that previous 
standards totally ignored, the 
range of variation across 
implementations is much 
greater, from "no solution at 
all" to "a set of words that 
works on this particular 
vendor's system but no 
other." 

That is why I am enthusi- 
astic about ANS Forth, whose 
extension wordsets address 
the issues that concern me 
most. Even if the ANS Forth 
extension wordsets are not 
100% perfect, they are very, 
very useful. In my opinion — 
with the exception of 
strings — the extension 
wordsets are ail good enough 
that it's probably counter- 
productive to tweak them 
any further. 

From: Mitch Bradley 



Could someone enlighten 
me as to the evil 
of ALSO ... ONLY? 



Forth Dimensions 



31 



May 1991 June 



Figure One. Primitive tools for constructing run-time searcli orders. 



WORDLIST ( — wid ) 

Creates a new wordlist and returns its wid ("wordlist id")- You can give it a name with 
CONSTANT, oryou can use WORDLIST inside the CREATE portion of a CREATE . . . D0ES> 
word. 

FORTH-WORDLIST ( — wid ) 
Wordlist id for the Forth wordlist. 

GET -ORDER ( — widn . . widl n ) 

Returns the number of wordlists in the current search order, and their "wordlist ids. " widl 
is the wordlist that is searched Forth. 

SET-ORDER ( widn . . widl n — ) 

Sets the search order so that the n wordlists widn . . . widl will be searched (widl firsO. 
If n is -1, sets the search order to the implementation-defined minimum search order, 
containing at least these words. 

GET-CURRENT ( — wid ) 

Returns the wordlist id of the compilation wordlist (where new definitions are created). 



SET-CURRENT ( wid — ) 

Sets the compilation wordlist to the wordlist "wid." 



Subject: Processors and 
Standards 

"Ok, perhafK I should be a 
bit more explicit. I was 
thinking of PC versus Unix 
(Sun, Apollo, etc). PC-Forths 
versus C-Unix Forths. Since 
there is no widespread de 
facto standard, switching 
from processors implies (or 
so I tried to assume) switch- 
ing h)etween standards." 
This is an excellent point, 
but I would come to a slightly 
different conclusion. You 
don't need to switch between 
standards, as Forth-83 de- 
rivatives exist in both envi- 
ronments. 

Rather, when you move 
to any workstation-class 
machine, or indeed any 
machine based on a 680x0 
(e.g., Macintosh, Atari ST, 
Amiga), you start getting into 
uncharted territory, as far as 
existing standards are con- 
cemed. In these kinds of 
environments: 

• Source code in blocks 
makes litde sense. 

• 32-bit addressing is the 



name of the game. 

• The existence of the oper- 
ating system cannot be ig- 
nored Oeading to prob- 
lems with the traditional 
Forth memory model, and 
also providing market re- 
quirements for access to 
OS features). 

• Hardware alignment re- 
strictions sometimes apply. 

• C is a viable, useable, and 
ubiquitous development 
environment, and Forth 
has to be competitive with 
it to succeed. 

The Forth-83 Standard 
does not address these is- 
sues. Successful Forth imple- 
mentations in these envi- 
ronments have addressed 
these issues, but without the 
guidance of a standard there 
has been great divergence. 

In the last two or three 
years, even the PC world has 
begun to face the same issues 
(because of Turbo-C, '386 
chips, cheap megabit RAM 
chips, and Windows 3). 

From: Chip Salzenberg 



Ray Duncan writes: 

"We strongly support the 
proposals to delete OifLY/ 
ALSO (I proposed this my- 
self some time back, but my 
proposal was voted down). " 
Could someone enlighten 

me as to the evil of ONLY/ 

ALSO? 

From: Ray Duncan 
Chip Salzenberg writes: 
"Could someone enlighten 
me as to the evil of ALSO/ 
OMLY?" 

First of all, it was never a 
part of the Forth-83 Stan- 
dard. It was appended to the 
standard as an experimental 
word set, as a political ploy 
to keep Bill Ragsdale (one of 
the founders of FIG) happy. 

Second of all, ALSO/ONLY 
was apparently originally 
conceived of as a "Forth- 
like" (i.e., stack-like) way to 
control search order, but the 
realization of the concept 
was brain damaged. To wit: 
there are ways to push things 
onto the search order stack 
but no way to pop them off; 
no way to interrogate what is 



currently in the search order 
stack; no way to rearrange 
the search order stack except 
by dumping the whole thing 
and starting over; and so on. 

Third of all, ALSO/ONLY 
is completely incompatible 
with at least two of the com- 
mercial Forth systems with 
the largest installed bases 
(Forth, Inc. andLMD. Itseems 
sort of silly to me to put 
something into the ANSI 
Forth draft standard — ^which 
is supposed to be founded 
on consensus and common 
practice — ^which will totally 
break the code of thousands 
of serious Forth program- 
mers and cannot be me- 
chanically edited/translated 
from old to new. 

Topic 14 
ANS TC Magnet for 
Vocabularies 

ANS — Vocabularies and dis- 
cussions about ANS Forth 
vocabularies. Magnet: John 
Stevenson 

From: Ray Duncan 

Subj: ALSO /ONLY 
Craig Treleaven writes: 
"What's wrong with ALSO/ 
ONLY ... a Forth vocabulary 
with 1500+ words is not my 
idea of easy to use." 
It's not my idea of easy to 
use, either. I have nothing 
against vocabularies, just the 
brain-damaged ALSO/ ONLY 
scheme. 

From: Craig Treleaven 

Subj: ALSO/ONLY 

Ray Duncan writes: 

"I have nothing against vo- 
cabularies, just the brain- 
damaged ALSO/ONLY 
scheme." 

Sorry, I still don't under- 
stand what is wrong with 
ALSO/ONLY? It seemed to 
me to be a nice way to 
control the search order. 
Words could be grouped into 
as many vocabularies as 
necessary, and the search 
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order set to only search the 
relevant ones. 

From: Mitch Bradley 
Subject: Brain damage 
"SET-CRDER can be done 
portably in ANS Forth only 
if everyone implements all 
the extension word sets. In 
our own case, I can defi- 
nitely promise you that LMl 
will Mof implement the ex- 
tension words it considers 
brain damaged, which defi- 
nitely includes ALSO and 
ONLY." 

GET/ SET -ORDER was 
invented in order to resolve 
the conflict between the 
proponents of run-time 
search order specificationand 
those who consider ALSO/ 
ONLY to be brain damaged. 
(ALSO/ONLY indeed has 
some serious technical flaws; 
nevertheless, it is useful.) 

I believe that the design 
of GET/ SET-ORDER ad- 
dresses the problems with 
ALSO /ONLY, while being 
simpler than ALSO/ONLY. 
Indeed, GET /SET-ORDER 
was originally proposed as a 
"fix" for the most fundamen- 
tal flaw of ALSO/ONLY. Then 
I realized it is sufficiently 
powerful that ALSO/ONLY 
can be easily implemented 
in terms of GET/SET-OR- 
DER John Hayes and 1 have 
figured out how to implement 
a few other popular search 
order schemes in terms of 
GET/ SET-ORDER. From 
what Martin Tracy has told 
me of LMI's search-order 
mechanism, I believe it can 
be expressed in terms of 
GET /SET-ORDER as well. 

The Search Order "base" 
wordset now contains GET/ 
SET-ORDER and a few re- 
lated words (GET/SET- 
CURRENT, WORDLIST, and 
FORTH-WORDLIST). ALSO/ 
ONLY has been banished to 
the Search Order Extension 
Wordset. 

I would be interested to 



1991 

Rochester 
Forth Conference 

ON 

Automated Instruments 

Call for Papers 

There is a call for papers on all aspects of Forth Technology, its application 
and implementation, but especially as relates to automated instruments. 
Automated instruments are found in satellites, such as payloads launched 
by the plane-borne Pegasus or the recent Shuttle-launched UV telescopes 
from NASA Goddard, the University of Wisconsin, and Johns Hopkins; 
and on the sea bottom, in RAFOS floats. Forth-based automated instru- 
ments appear in myriad applications from Itron meter reading and Federal 
Express package tracking to exotic nuclear medicine imaging systems. 

Submit a 100 word abstract by May 15th and a final 5 page paper by June 
1st. Type should be no smaller than 10 point. Author's kits will be sent 
indicating preferred disk file formats. Longer papers will be considered for 
submission to the refereed Journal of Forth Application and Research. 

The Conference 

• Invited Speakers 

• Forth in the USSR 

• Poster Sessions 

• Forth Interest Group Meeting 

• X3J14 ANS Forth Standard 

• Vendor Exhibits and an Open Day, June 22 

• Tour of the Laboratory for Laser Energetics 

• Performance hy Alaira, Circus Artistry and Aerial Ballet 

For more information, contact: 

Lawrence P. Forsley 

Conference Chairman 

Forth Institute 

70 Elmwood Avenue 

Rochester, NY 14611 USA 

(716) 235-0168 • (716) 328-6426/ac 

EMail: GEnie L.Forsley 

Compuserve . . .72050,2111 

Internet 72050,2111@COMPUSERVE.COM 
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learn of other wordsets that 
LMI considers to be brain- 
damaged, and why. ODon't 
bother mentioning the strings 
wordset; everybody in the 
world seems to have differ- 
ent and mutually-incompat- 
ible ideas about what should 
be in that particular wordset, 
so I expect that it will remain 
brain-damaged.) 

From: Mitch Bradley 
Subject: Problems with 

ALSO /ONLY 

Disclaimer: I don't dislike 
ALSO/ONLY; I use them ev- 
ery day. But they do have 
some problems: 

1. There is no standard way 

to save the existing search 
order, set the search or- 
der to a particular value, 
and later restore the 
search order. 

2. In the common imple- 
mentations, it is easy to 
get in a situation where 
the same vocabulary is 
searched twice. This is an 
implementation problem, 
not a specification prob- 
lem, and it's only bad 
effect is slower compila- 
tion, but some people 
criticize it anyway. 

3. A program has no stan- 
dard way ofknowing how 
many vocabularies it can 
add to the search order 
before the search order 
data stmcture overflows 
and the system crashes. 

4. Many people think that 
the behavior of the search 
order as a "funny stack" 
(where the execution of a 
vocabulary replaces the 
top of the stack) is screwy. 

5. There is no portable way 

of testing what is in the 
search order. 

6. There is no portable way 

of removing a particular 
vocabulary from the 
search order. 

Basically, with ALSO/ 



ONLY as described in Forth- 
83 (as an experimental 
wordset), you could set the 
search order to a particular 
value, but that is all. Any- 
thing else you wanted to do 
required knowledge of ex- 
actly how it was imple- 
mented. 

I would be interested to 
hear of other problems that I 
may have missed. 

From: Mitch Bradley 
Subject: Search order user 
interfaces 

I hereby propose a 
"search order user interface" 
contest. 

Background: 

Because there is a lot of 
Forth community support for 
ALSO/ONLY, it has remained 
in ANS Forth. Because there 
is a fair amount of opposition 
to it, it has been banished to 
the Search Order Extension 
wordset (i.e. the "extension" 
portion of the optional Search 
Order wordset), so it is sort 
of "doubly optional." 

The base portion of the 
optional Search Order 
wordset contains a set of 
primitive tools for constmct- 
ing run-time search orders. 
Those tools are given in 
Figure One. 

From these primitives, 
various search order "user 
interfaces" may be readily 
constmaed, including ALSO/ 
ONLY, and the fig-FORTH, 
Forth-79, and polyFORTH 
vocabulary mechanisms. 

Contest: 

Design your own "user 
interface wordset" (as in 
ALSO/ONLY) for specifying 
search orders. Hopefully, it 
should be buildable on top 
of GET/SET-OFy)ER (if not, 
tell us the cmcial deficiency 
of GET/ SET-ORDER). Tell US 
what is good about it Con- 
vince us that it is not "brain 



damaged." 
The prize: 

There is no prize, other 
than the chance that other 
people like it and will think 
you are a hotshot 

From: Ray Duncan 

Thank you, Mitch, for 
exactly summarizing my 
objections to ALSO/ONLY. 

In LMI Forth systems, 
FIND uses a three-level 
search order: 
CONTEXT-* 
CURRENT-* 
FORTH 

However, we also have a 
building block word (find) 
that is called by F IND and can 
search an arbitrary string of 
vocabulary threads — from 
one to many. So it is very 
easy to implement other 
schemes for search order 
control in LMI Forths and, in 
faa, the ALSO/ONLY scheme 
can be layered on top of our 
systems in one or two screens 
of code. 

From: Mitch Bradley 
Subject: Re-inventing the 
wheel 

"I'm bothered a little by the 
rationale for the use of 
WORDSET in lieu of VO- 
CABtHARY; what I heard of 
of the reasons given for the 
change there simply didn't 
seem to be enough for my 
liking..." 

If the word VOCABULARY 
exists in the standard, then 
the upgrade path for several 
important commercial 
implementations is made 
considerably more difficult. 
In particular, polyFORTH, 
LMI Forth, MacForth, and 
MVP-FORTH all have the 
word VOCABULARY in dif- 
ferent forms. Any definition 
of VOCABULARY that you 
choose will break at least 
three of those four systems. 

This seems like a strong 



argument to me. Those sys- 
tems represent many thou- 
sands of Forth programmers 
between them. 

"Not to mention the forms 
of signed division (We now 
need the code for both forms 
in the dictionary instead of 
one- or so I understand it to 
be)..." 

Remember, the code 
doesn't have to be in the 
dictionary. It just has to be 
available. It could even be 
on a paper listing that the 
user could type in to define, 
for instance, FM/MOD in terms 
of SM/MOD or UM/MOD. 

" . . .they both give incorrect 
answers in the third quad- 
rant (both numbers nega- 
tive...) the MCX3 part of /MOD 
for either algorithm is 
negative when it should be 
positive (which is math- 
ematically wrong...)." 
Is it? Knuth (volume one, 
page 38, says that if y < , 
then >= x mod y > y. 

Also see Robert Berkey's 
excellent discussion of divi- 
sion in the proceedings of 
the 1982 FORML conference. 

Closing Conunent 

There is going to be a 
dpANS Forth. You are run- 
ning out of opportunity and 
time to help create the model. 
I might add, I have deliber- 
ately scheduled some on- 
line conference guests with 
diverse views of what the 
final product should look 
like. The point is this: If you 
do not partake of the oppor- 
tunity to impact the shape of 
"our" language it will wof be 
because you were denied 
access to the process. 
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(Continued from page II.) 



( Memory release ) 
: F-L ( ad — > : free list cells ) 
DUP NIL? IF DROP ELSE DUP LST? 

IF DUP CAR RECURSE DUP CDR RECURSE FWMC 
ELSE FWMC THEN THEN ; 
: OCC ( adl ad2 — > f : adl - occur in list ad2 ? ) 
OVER OVER = IF DROP DROP TRUE ELSE DUP LST? 
IF OVER OVER CAR RECURSE 

IF DROP DROP TRUE ELSE CDR RECURSE THEN 
ELSE DROP DROP FALSE THEN THEN ; 

: SF-L ( adl ad2 — > : free cells of adl not OCC in ad2 ) 
OVER NIL? IF DROP DROP EXIT THEN 
OVER OVER OCC IF DROP DROP EXIT THEN 
OVER LST? IF OVER CAR OVER RECURSE 

OVER CDR SWAP RECURSE FWMC 
ELSE DROP FWMC THEN ; 



(Continued from page 23.) 

letes are unbearably tedious, 
even with a RAM disk. An 
invalid number, a zero, or a 
CR only, aborts the proce- 
dure. 

When deleting, a confir- 
mation request gives you a 
second chance to abort be- 
fore anything is actually 
deleted. 

Error Checking 

When adding screens, 
MORE? checks the end of 
the source-screen set to 
ensure that enough empty 
screens are there. A confir- 
matory query comes up if 
more screens are needed. I 
did this primarily for floppy- 
disk systems, to prevent an 
'out of room' error. The 
routine is a bit simple- 
minded. If four empty 
screens are present but five 
are needed, it will increase 
capacity by five, not one. 
For shadow screens, the 
number is doubled and the 
shadow screens are shifted 
up so they remain in sync 



with the source screens. 
When using shadow 
screens, I find it safer to start 
with the capacity as an even 
number and to keep it that 
way. 

When deleting, a calcu- 
lation by OK#DEL? checks 
that you don't try to delete 
more screens than exist in 
the file. After that, the 



screens are shifted and the 
duplicate screens are wiped 
clean. You will find that 
most of the operation is 
automatic and undemand- 
ing. 

After tweaking the origi- 
nal code to my liking, the 
promise of PDE as an all- 
purpose development en- 
vironment has been ful- 



filled. It's like a Forth-screen 

version of Codeuiew in just 

34K bytes. I hope these 

screen-handling words only 

add to the pleasure. 

Walter J. Rottenkolber says (hat Forth 
provides the same close-to- the- silicon 
feel as assembler, butwlthout the pain. 
Early on, he experimented with fig- 
Forth and other languages, but gravi- 
tated toward assembler until he was 
dazzled by Bill Kiblet's NC-4000-based 
computer. 



MAKE YOUR SMALL COMPUTER 

THINK BIG 

(Wta've baen doing il sinca 1977 for IBM PC. XT AT. PS? 
and TRS BC in'idels. 1. 3. 4 S 4P I 

FOR THE Office — Smpli'y and speed your work 
with our outstanding word processing, database handlers, 
and general ledger software They are easy to use, powerful, 
with eKBCulive-look print-outs, reasonable site license costs 
and comfortable, reliable support Ralph K Andrist, author/ 
bistwian, says "FORTHWRTTE lets me concentrate on my 
•nanuscnpt, not tiie compute'' Stewart Johnson, Boston 
Maih'-^r. <,a,s vtp. ..-DATAHANDLER PLUSPuui^vr:. 
the best we've seen ' 

MMSFORTHSyshmOM 'i •■ irUn 

MoMar ydehig — Integrate witn System Disk only what 
you need' 

FORTHWRITE - Vtordprocessor $9995 
DATAHANDLER L-i:.-.- 

DATAHANDUR-PLUS Database S9995 
FORTMCOM - for Comrnunicatiors $4995 
GENERAL LEDGER - Accounting System $25000 

^ FOKm 

MILLER MICROCOMPUTER SERVICES 

81 Lake Shore Road, Natick, HAA 01760 
(508/653-6136. 9 am - 9 pm) 



FOR PROGRAMMERS — Build programs ■"ASTER 
and SMALLER with our " Intelligenr MMSFORtH System and 
applications modules, plus the famous MfMSFORTH coRtinu- 
ing support Most Riodules inducts source code Ferren 
Maclntyie, oceenographer says' "Forth Is the language that 
microcomputers were invented lo run " 

SOFTWARE MANUFACTURERS — E>Vip,-' s .'t 
ware tOD<s uve time and money MMSFORTH's tiawbilily, 
compiiCness and speed have resulted in Iietter products in 
less time 'or a wide range of aoHMre devatopen including 
Asliton-Tate, Excalibur Technolagies, Lindbergh Systems, 
Lockheed Missile and Space Division, and I^IASA-Goddanl. 

MMSFORTHVUSfMmiDilk •romjiy^v. 
I^eeds only 24K RAM compared to 100K for BASIC, C, 
Pascal and others Convert your computer into a Forth virtual 
inacl'ine with sophisticated Faith editor and related tools This 
can result in 4 lo 10 times giealer productivity 

Modular pricing — Integrate with System Disk only what 
you need 

EXPERT-Z - Expert System Dsvelopmem $6S.9S 
FORTHCOM - Flexible data transfer $49.95 
UTILfTIES iir!i!>ri' 4V support and other facilities 

andalitUemore! 

THIRTY-DAY FREE OFFER - Free MMSFORTH 
GAMESDISK*. itnS'J^' Alth purchase of MMSFORTH 
LPER, OTHELLO, BREAK- 

■ 

Cafl Ibf ln» brochim, ferlinlnl wiHn or pricing daeaB b . 
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Forth resources & contact information 



Please send updates, corrections, additional listings, and suggestions to the Editor. 



Forth Interest Group 




The Forth Interest Group serves both expert and 


novice members with its network of chapters, Forth 


Dimensions, and conferences that regularly attract 


participants from around the world. For membership 


information, or to reserve advertising space, contact 


the administrative offices: 




Forth Interest Group 




P.O. Box 8231 




San Jose, California 95155 


408-277-0668 




Fax: 408-286-8988 




Board of Directors 


Founding Directors 


John Hall, President 


William Ragsdale 


C.H. Ting, Vice-President 


Kim Harris 


Mike Elola, Secretary 


Dave Boulton 


Dennis Ruffer, Treasurer 


Dave Kilbridge 


Wil Baden 


John James 


Jack Brown 




David Petty 





In Recognition 



Recognition is offered an- 
nually to a person who has 
made an outstanding con- 
tribution in support of Forth 
and the Forth Interest 
Group. The individual is 
nominated and selected by 
previous recipients of the 
"FIGGY." Each receives an 
engraved award, and is 
named on a plaque in the 
administrative offices. 



1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

1989 Jan Shepherd 

1990 Garyr Smith 



ANS Forth 




The following members of the ANS X3J14 Forth Stan- 


dard Committee are available to personally carry your 


proposals and concerris to the committee. Please feel 


free to call or write to them directly: 


Gary Betts 


Charles Keane 


Unisyn 


Performance Pkgs., Inc. 


301 Main, penthouse #2 515 Fourth Avenue 


Longmont, CO 80501 Watervleit, NY 12189-3703 


303-924-9193 


518-274-4774 


Mike Nemeth 


George Shaw 


CSC 


Shaw Laboratories 


10025 Locust St. 


P.O. Box 3471 


Glenndale, MD 20769 Hayward, CA 94540-3471 


301-286-8313 


415-276-5953 


Andrew Kobziar 


David C. Petty 


NCR 


Digitel 


Medical Systems Group 125 Cambridge Park Dr. 


950 Danby Rd. 


Cambridge, MA 02140-2311 


Ithaca, NY 14850 




607-273-5310 




Elizabeth D. Rather 


FORTH, Inc. 




Ill N. Sepulveda Blvd., 


suite 300 




Manhattan Beach, CA 90266 


213-372-8493 





Forth Instruction 



Los Armeies — Introductory and intermediate three-day 
intensive courses in Forth programming are offered 
monthly by Laboratory Microsystems. These hands-on 
courses are designed for engineers and programmers 
who need to become proficient in Forth in the least 
amount of time. Telephone 213-306-7412. 
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On-Line Resources 



To communicate with these systems, set your modem and 
communication software to 300/1200/2400 baud with eight 
bits, no parity, and one stop bit, unless noted othenvise. GEnie 
requires local echo. 



GEnie 

For information, 
call 800-638-9636 

• Forth RoundTable 
(ForthNef) 

Call GEnie local node, 
then 

type M710 or FORTH 
SysOps: 
Dennis Ruffer 
(D.RUFFER), 
Scott Squires 
(S.W.SQUIRES), 
Leonard Morgenstem 

(NMORGENSTERN), 
Gary Smith (GARY-S) 

• MACH2 RoundTable 
Type M450 or MACH2 
Palo Alto Shipping 
Company 

SysOp: 

Waymen Askey 

(d.miley:) 

BIX(ByteNet) 
For information, 
call 800-227-2983 

• Forth Conference 
Access BIX via TymNet, 
then type j forth 

Type FORTH at the : 

prompt 
SysOp: 

Phil Wasson (PWASSON) 

• LMI Conference 

Type LMI at the ; prompt 

LMI products 

Host: 

Ray Duncan 
(RDUNCA>D 

CompuServe 
For information, 
call 800-848-8990 

• Creative Solutions Conf. 
Type !Go FORTH 
SysOps: Don Colburn, 



Zach Zachariah, Ward 
McFarland, Jon Bryan, 
Greg Guerin, John 
Baxter, John Jeppson 

• Computer Language 
Magazine Conference 
Type !Go CLM 
SysOps: Jim Kyle, Jeff 
Brenton, Chip 
Rabinowitz, Regina Starr 
Ridley 

Unix BBS's with forth. conf 
(ForthNet* and reachable via 
StarLink node 9533 on TymNet 
and PC-Pursuit node casfa on 
TeteNet.) 

• WELL Forth conference 
Access WELL via 
Compose rveNet 

or 415-332-6106 
Fairwitness: 
Jack Woehr (jax) 

PC Board BBS's devoted to Forth 
(ForthNet*) 

• British Columbia Forth 
Board 

604-434-5886 
SysOp: Jack Brown 

• Grapevine 
501-753-8121 to register 
501-753-6859 
StarLink node 9858 
SysOp: Jim Wenzel 

• Real-Time Control Forth 

Board 
303-278-0364 
StarLink node 2584 on 

TymNet 
PC-Pursuit node coden 
on 

TeleNet 
SysOp: Jack Woehr 



Other Forth-specific BBS's 

• Laboratory Microsystems, 

Inc. 
213-306-3530 
StarLink node 9184 

on TymNet 
PC-Pursuit node calan 

on TeleNet 
SysOp: Ray Duncan 

• Knowledge-Based 
Systems 
Supports Fifth 
409-696-7055 

• Druma Forth Board 
512-323-2402 
StarLink node 1306 on 

TymNet 
SysOps: S. Suresh, James 
Martin, Anne Moore 

Non-Forth -specific BBS's with 
extensive Forth libraries 

• DataBit 
Alexandria, VA 
703-719-9648 
PCPursuit node dcwas 
StarLink node 2262 
SysOp: Ken Flower 

• The Cave 
San Jose, CA 
408-259-8098 
PCPursuit node casjo 
StarLink node 6450 
SysOp: Roger Lee 



International Forth BBS's 

• Melbourne FIG Chapter 
(03) 809-1787 in 

Australia 
61-3-809-1787 interna- 
tional 

SysOp: Lance Collins 

• Forth BBS JEDI 
Paris, France 
33 36 43 15 15 

7 data bits, 1 stop, even 
parity 

• Max BBS (ForthNet') 
United Kingdom 
0905 754157 
SysOp: Jon Brooks 

• Sky Port (ForthNet*) 
United Kingdom 
44-1-294-1006 
SysOp: Andy Brimson 

• SweFIG 

Per Aim Sweden 
46-8-71-35751 

• NEXUS Servicios de 

Informacion, S. L. 
Travesera de Dalt, 104- 
106, 

Entlo. 4-5 
08024 Barcelona, Spain 
+ 34 3 2103355 (voice) 
+ 34 3 2147262 (modem) 
SysOps: Jesus 
Consuegra, Juanma 
Barranquero 
barran@nexus.nsi.es 

(preferred) 
barran@nsi.es 



This list was accurate as of March 1991. If you know another 
on-line Forth resource, please let me know so it can be 
included in this list I can be reached in the following ways: 



Gary Smith 
P. O. Drawer 7680 
Little Rock, Arkansas 72217 
*ForthNetisa virtual Forth network that links designated message Telephone: 50 1-227- 7817 
bases in an attempt to provide greater information distribution fax (group 3): 501-228-9374 
to the Forth users served. It is provided courtesy of the SysOps of GEnie (co-SysOp, Forth RT and Unix RT): GARY-S 
its various links. Usenet domain.: uunetlddH Urarklglsrklgars 
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FIG Chapters 



The Forth Interest Group Chapters listed below are currently 
registered as active with regular meetings. If your chapter 
listing is missing or incorrect, please contact Anna Brereton 
at the FIG office's Chapter Desk. This listing will be updated 
regularly in Forth Dimensions. If you would like to begin a FIG 
Chapter in your area, write for a "Chapter Kit and Applica- 
tion. " 

Forth Interest Group 

P.O. 80x8231 

San Jose, California 95155 



U.S.A. 

• AIABAMA 
Huntsville Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodlak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 

4th Thurs., 7:30 p.m. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 
(602) 381-1146 

• CALIFORNIA 

Los Angeles Chapter 

4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. GrevUlea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 

2nd Sat. 

12 noon tutorial, 1 p.m. Forth 
2055 Center St., Berkeley 
Leonard Morgenstem 
(415) 376-5241 

Orange County Chapter 

4th Wed., 7 p.m. 
Fullerton Savings 
Huntington Beach 
Noshir Jesung (714) 842-3032 

Sacramento Chapter 

4th Wed., 7 p.m. 
1708-59th St., Room A 
Bob Nash 
(916) 487-2044 

San Diego Chapter 

Thursdays, 12 Noon 
Guy Kelly (619) 454-1307 



Silicon Valley Chapter 

4th Sat., 10 a.m. 
Applied Bio Systems 
Foster City 
John Hall 
(415) 535-1294 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 

1st Mod., 7 p.m. 

Clifford King (303) 693-3413 

• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Teny McNay (813) 725-1245 

• GEORGLV 
Atlanta Chapter 

3rd Tues., 7 p.m. 
Emprise Corp., Marietta 
Don Schrader (404) 428-0811 

• ILUNOIS 

Cache Forth Chapter 

Oak Park 

Clyde W. Phillips, Jr. 
(708) 713-5365 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

Univ. Campus 
B71 Neff Hall 
Blair MacDermid 
(219) 749-2042 



• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 
Iowa State Univ. 
214 Comp. Sci. 
Rodrick Eldridge 
(515) 294-5659 

Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7782 

• MARYLAND 

MDFIG 

3rd Wed., 6:30 p.m. 
JHU/APL, Bldg. 1 
Parsons Auditorium 
Mike Nemeth 
(301) 262-8140 (eves.) 

• MASSACHUSETTS 
Boston FIG 

3rd Wed., 7 p.m. 
Bull HN 

300 Concord Rd., Billerica 
Gary Chanson (6l7) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 

Bill Walters 
(313) 731-9660 
(313) 861-6465 (eves.) 

• MINNESOTA 
MNFIG Chapter 

Minneapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 

4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St Louis Chapter 

1st Tues., 7 p.m. 
Thornhill Branch Library 
Robert Washam 
91 Weis Drive 
Ellisville, MO 63011 

• NEW JERSEY 

New Jersey Chapter 

Rutgers Univ., Piscataway 
Nicholas Lordi 
(201) 338-9363 

• NEW MEXICO 
Albuquerque Chapter 

1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505) 298-3292 



• NEW YORK 

Long Island Chapter 

3rd Thurs., 7:30 p.m. 
Brookhaven National Lab 
AGS dept., 

bldg. 911, lab rm. A-202 
Irving Montanez 
(516) 282-2540 



Rochester Chapter 

Monroe Comm. College 
Bldg. 7, Rm. 102 
Frank Lanzafame 
(716) 482-3398 

• OHIO 

Columbus FIG Chapter 

4th Tues. 

Kal-Kan Foods, Inc. 
5115 Fisher Road 
Teny Webb 
(614) 878-7241 

Dayton Chapter 

2nd Tues. & 4th Wed., 6:30 p.m. 
CFC 

11 W. Monument Ave. *6l2 
Gary Ganger (513) 849-1483 

• OREGON 
WiUamette Valley Cliapter 

4th Tues., 7 p.m. 
Linn-Benion Comm. College 
Pann McCuaig (503) 752-5113 

• PENNSYLVANL\. 

Villanova Univ. Chapter 
1st Mon., 7:30 p.m. 
Villanova University 
Dennis Clark 
(215) 860-0700 

• TENNESSEE 

East Tennessee Chapter 

Oak Ridge 

3rd Wed., 7 p.m. 

Sci. Appl. Int'l. Corp., 8th Fl. 

800 Oak Ridge Turnpike 

Richard Sacrist (6 15) 483-7242 

• TEXAS 
Austin Chapter 

Matt Lawrence 
PO Box 180409 
Austin, TX 78718 

Dallas Chapter 

4th Thurs., 7:30 p.m. 
Texas Instruments 
13500 N. Central Expwy. 
Semiconductor Cafeteria 
Conference Room A 
Clif Penn (214) 995-2361 
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Houston Chapter 

3rd Mon., 7:30 p.m. 
Houston Area League of 
PC Users (HAL-PC) 
1200 Post Oak Rd. 
(Galleria area) 
Russell Harris 
(713) 461-1618 

• VERMONT 
Vermont Chapter 

Vergennes 
3rd Mon., 7:30 p.m. 
Vergennes Union High School 
RM 210, Monkton Rd. 
Hal Clark (802) 453-4442 

• VIRGINIA 
First Forth of 
Hampton Roads 

William Edmonds 
(804) 898-4099 

Potomac FIG 

D. C. & Northern Virginia 
1st Tues. 

Lee Recreation Center 
5722 Lee Hwy., Arlington 
Joseph Brown 
(703) 471-4409 

E. Coast Forth Board 
(703) 442-8695 

Richmond Forth Group 

2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Donald A. Full 
(804) 739-3623 

• WISCONSIN 

Lake Superior Chapter 

2nd Fri., 7:30 p.m. 

1219 N. 21st St., Superior 

Allen Anway (715) 394-4061 



INTERNATIONAL 

• AUSTRALIA 
Meftmurne Chapter 

1st Fri., 8 p.m. 

Lance Collins 

65 Martin Road 

Glen Iris, Victoria 3146 

03/889-2600 

BBS: 61 3 809 1787 

Sydney Chapter 

2nd Fri., 7 p.m. 

John GoodseU Bldg., RM LG19 

Univ. of New South Wales 

Peter Tregeagle 

10 Binda Rd. 

Yowie Bay 2228 

02/524-7490 

Usenet: 

tedr@usage.csd.unsw.oz 

• BELGIUM 
Belgium Chapter 

4th Wed., 8 p.m. 
Luk Van Loock 
Lariksdreef 20 
2120 Schoien 
03/658-6343 

Southern Belgium Chapter 

Jean-Marc Bertinchamps 
Rue N. Monnom, 2 
B-6290 Nalinnes 
071/213858 

• CANADA 
Forth-BC 

1st Thurs., 7:30 p.m. 

BCIT, 3700 Wiliingdon Ave. 

BBY, Rm. lA-324 

Jack W. Brown 

(604) 596-9764 or 

(604) 436-0443 

BCFB BBS (604) 434-5886 

Northern Alberta Chapter 

4th Thurs., 7-9:30 p.m. 
N. Alta. Inst, of Tech. 
Tony Van Muyden 
(403) 486-6666 (days) 
(403) 962-2203 (eves.) 



Southern Ontario Chapter 

Quarterly: 1st Sat. of Mar., 
June, and Dec. 2nd Sat. of Sept. 
Genl. Sci. Bldg., RM 212 
McMaster University 
Dr. N. Solntseff 
(416) 525-9140 x3443 

• ENGLAND 

Forth Interest Group-UK 

London 

1st Thurs., 7 p.m. 

Polytechnic of South Bank 

RM 408 

Borough Rd. 

D.J. Neale 

58 Woodland Way 

Morden, Surry SM4 4DS 

• FINLAND 
FinFIG 

Janne Kotiranta 
Arkkitehdinkatu 38 c 39 
33720 Tampere 
+358-31-184246 

• GERMANY 
Germany FIG Chapter 

Heinz Schnitter 
Forth-Gesellschaft e.V. 
Postfach 1110 
D-8044 Unterschleissheim 
(49) (89) 317 3784 
e-mail uucp; 
secretary@forthev.UUCP 
Internet: 

secretary@Adniin.FORTH-eV.de 

• HOLLAND 
Holland Chapter 

Vic Van de Zande 
Finmark 7 
3831 JE Leusden 

• ITALY 
FIG Italia 

Marco Tauset 

Via Gerolamo Forni 48 

20161 Milano 

• JAPAN 
Japan Chapter 

Toshio Inoue 
University of Tokyo 
DefX. of Mineral Develop- 
ment 

Faculty of Engineering 
7-3-1 Hongo, Bunkyo-ku 
Tokyo 113, Jap)an 
(81)3-3812-2111 ext. 7073 



• REPUBUC OF CHINA 
R.O.C. Chapter 

Ching-Tang Tseng 
P.O. Box 28 

Longtan, Taoyuan, Taiwan 
(03) 4798925 

• SWEDEN 
SweFIG 

Per Aim 
46/8-929631 

• SWITZERLAND 
Swiss Chapter 

Max Hugelshofer 
Industrieberatung 
Ziberstrasse 6 
8152 Opfikon 
01 810 9289 

SPECIAL GROUPS 

• Forth Engines Users 
Group 

John Carpenter 
1698 Villa St. 

Mountain View, CA 94041 
(415) 960-1256 (eves.) 
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CALL FOR PAPERS 

1991 CHINA FORML CONFERENCE 

ON INDUSTRIAL AUTOMATION 

Shanghai Jiao Tong University, Shanghai, China 
August 9-10, 1991 



Papers are invited that address issues related to factory automation and industrial 
applications of Forth. Since the Forth experts in China are still few and far in 
between, tutorial topics on Forth, its applications and its implementations on 
microprocessors and microcontrollers are also welcome. 

Please send abstracts of approximately 100 words by May 1, 1991 to FORML, 
P.O. Box 8231, San Jose, CA 95155. Completed papers are due July 5, 1991. 

Chinese Ancient Capitals Tour for Conference participants and guests 

This special tour offers a unique itinerary through many of the ancient Chinese 
capitals in the Yellow River basin, off the oft-trodden tourist paths. Visiting 
Beijing, Zhengzhou, Dengfing, Luoyang and Xian presents a comprehensive view 
in very high contrast of the Chinese people, landscape, architecture, culture and 
history. Other highlights include the Shaolin Temple, ruins of Sha Capital, 
Zhongyue Temple, Yuanguan Observatory, the Brick Songyue Tower, etc. 
Conference and tour cost is about $2,000 per person, from/to San Francisco. 

Conference registration information may be obtained by telephone from the 
Forth Interest Group business office (408) 277-0668 or write to FORML, P.O. 
Box 8231, San Jose, CA 95155, or to Prof. Zhou Xu, Computer Center, Shanghai 
Jiao Tong University, Shanghai, China, 200030. Inquiries about the conference 
programme and the special Capitals Tour should be directed to the Programme 
Coordinators, Dr. C. H. Ting, (415) 570-6667 (w) or (415) 571-7639 (h). 

Shanghai Jiao Tong University is the oldest technology university in China with 
special emphasis on communication, electronics, and computer technology. It 
hosted the previous China FORML Conferences in 1984 and 1986, and has been 
one of the focal points of Forth activity in China. Shanghai is the largest 
metropolitan area in the world at the mouth of gaint Yangtze River, surrounded 
by many scenic cities like Hangzhou, Zhenjiang, Suzchou, Yangzhou, Wuxi, and 
Nanjing. 
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